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SECTION  1 
INTRODUCTION 


1.1  BACKGROUND 


During  the  past  several  years,  the  Electromagnetic  Compatibility  Analysis 
Center  (ECAC)  has  supported  the  Federal  Aviation  Administration  ( FAA)  by 
predicting  the  effects  of  various  airborne  Collision  Avoidance  Systems  (CAS) 
on  the  existing  FAA  Air  Traffic  Control  Radar  Beacon  System  ( ATCRBS)  and  the 
planned  Mode  S  system.  '  In  F¥-81,  ECAC  investigated  the  effects  of  an 
omnidirectional  version  of  the  Traffic  Alert  and  Collision  Avoidance  System 
( TCAS )  on  ATCRBS  and  Mode  S  system  performance  in  a  hypothetical  Los  Angeles 
Basin  air  traffic  deployment  and  in  subsets  of  that  deployment.  '  For  those 
air  traffic  deployments,  it  was  predicted  that  TCAS  activity  would  not  degrade 
ATCRBS  or  Mode  S  ATC  system  performance;  however,  interference-limiting 
constraints  resulted  in  undesired  reductions  in  the  protection  volume  of  TCAS- 
equipped  aircraft  that  were  operating  in  densely  populated  airspace. 

To  maximize  the  protection  area  for  TCAS-equipped  aircraft  operating  in 
future  high-density  environments,  the  FAA  proposed  a  new  TCAS  design.  This 
design  includes  a  directional,  scanning  antenna,  improved  Mode  S  tracking 
algorithms,  a  modified  whisper-shout  sequence  (to  maintain  surveillance  of 


^Theberge,  Norman,  The  Impact  of  a  Proposed  Active  BCAS  on  ATCRBS  Performance 
in  the  Washington,  DC,  1981  Environment,  FAA-RD-1 77-140,  FAA,  Washington, 

DC,  September  1977,  ADA  048589, 

2Gettier,  C.  et  al. >  Analysis  of  Elements  of  Three  Airborne  Beacon  Based 
Collision  Avoidance  Systems,  FAA-RD-79-1 23,  FAA,  Washington,  DC,  May  1979, 

ADA  082026. 

3Hildenberger,  Mark,  User's  Manual  for  the  Los  Angeles  Basin  Standard  Traffic 
Model  Card  Deck/Character  Tape  Version,  FAA-RD-73-89,  FAA,  Washington,  DC, 

May  1973,  ADA  768846. 

^Patrick,  G.  and  Keech,  T. ,  Impact  of  an  Omnidirectional  Traffic  Alert  and 
Collision  Avoidance  System  on  the  Air  Traffic  Control  Radar  Beacon  System  and 
the  Discrete  Address  Beacon  System,  FAA/RD-81/106,  FAA,  Washington,  DC, 
November  1981,  ADA  116170. 
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ATCRBS-equipped  aircraft),  and  associated  revisions  to  the  interference 
.  5 

limiting  algorithm.  The  design  was  chosen  to  reduce  the  extent  of 
interference  limiting  and  thus  allow  TCAS-equipped  aircraft  to  successfully 
perforin  the  collision  avoidance  function  in  even  the  most  congested  airspace 
and  also  to  reduce  the  potential  for  interference  with  ground-based  ATC 
sys  terns . 

Three  versions  of  TCAS  have  been  proposed:  Enhanced  TCAS  II,  Minimum 
TCAS  II  (TCAS  II  M),  and  TCAS  I.  Enhanced  TCAS  is  still  in  the  design  phase, 
and  as  such,  is  not  addressed  in  this  study.  TCAS  II  M  is  capable  of 
omnidirectional  Mode  S  surveillance  and  limited  directional  ATCRBS 
surveillance.  TCAS  II  M-equipped  aircraft  track  nearby  ATCRBS  transponder- 
equipped  aircraft  by  periodically  eliciting  replies  using  an  ATCRBS-only 
interrogation  format;  nearby  Mode  S  transponder-equipped  aircraft  are  tracked 
by  periodically  eliciting  replies  using  a  Mode  S  interrogation  format.  The 
TCAS  II  M  is  designed  for  use  in  commercial  aircraft.  TCAS  I,  a  less 
expensive  version  of  TCAS,  locates  nearby  aircraft,  both  ATCRBS-  and 
Mode  s-equipped,  by  periodically  eliciting  replies  using  an  ATCRBS 
interrogation  format.  The  TCAS  I  is  designed  for  use  in  general  aviation 
aircraft. 

To  investigate  the  effects  of  TCAS  I  and  TCAS  II  M  operations  on  ATCRBS 
and  Mode  S  ATC  performance,  ECAC  was  requested  to  perform  a  simulation 
analysis,  similar  to  the  FY-81  Los  Angeles  Basin  study.  This  analysis  was 
performed  using  the  TCAS  Signal  Environment  Model  (SEM) .6  This  model  is  used 
to  predict  the  time-average  rates  at  which  TCAS  signals  are  received  at  ATC 
transponders  in  a  given  deployment.  These  rates  are  then  used  in  the 


^Radio  Technical  Commission  for  Aeronautics,  Minimum  Operational  Performance 
Standards  (MOPS)  for  Traffic  Alert  and  Collision  Avoidance  System  (TCAS) 
Airborne  Equipment,  RTCA/DO-185,  Washington,  DC,  September  1983. 

6 

^Patrick,  G.  et  al.,  The  Impact  df  a  Traffic  Alert  and  Collision  Avoidance 
System  on  the  Air  Traffic  Control  Radar  Beacon  System  and  Mode  S  System  in 
the  Los  Angeles  Basin,  DOT/FAA/PM-84^30,  FAA,  Washington,  DC,  May  1985. 
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DABS/ATCRBS/AIMS3  Performance  Prediction  Model  (PPM)7  to  merge  the  TCAS  signal 
environment  with  signals  due  to  ground-based  ATC  systems.  The 
DABS/ Al'CRBS/AIMS  PPM  then  predicts  the  performance  of  a  selected  interroqator- 
of-interest  in  the  composite  ATC  and  TCAS  signal  environment. 


This  document  describes  the  TCAS  SEM.  Included  are  descriptions  of  the 
modeled,  systems,  the  data-storage  and  retrieval  subsystems  for  engineering 
data,  and  the  software  structures  of  all  w...pr*,ent  subsystems.  The  results  of 
the  F¥83/84  TCAS  SEM  simulation  exercise  using  Los  Angeles  Basin  air  traffic 
deployments  are  presented  in  the  document  cited  in  Reference  6. 


1.2  OBJECTIVE 


The  objective  of  this  effort  was  to  document  the  TCAS  Signal  Environment 
Model  (SEM)  that  was  developed  to  predict  time-averaged  TCAS  I  and  TCAS  II  M 
signal  rates  in  a  given  air  traffic  deployment. 


1.3  APPROACH 


1 .3.1  Design  Rationale 


The  TCAS  SEM  was  developed  to  be  used-  in  conjunction  with  the 
DABS/ ATCRBS/ AIMS  PPM  to  predict  the  performance  of  ATCRBS  and  Mode  S  ATC 
systems  in  an  environment  including  both  TCAS  and  ATC  system  surveillance 
activity.  The  TCAS  SEM  simulates  TCAS  surveillance  operation  and  predicts  the 
time-averaged  rates  at  which  TCAS  signals  are  received  at  all  environmental 
ATC  transponders.  These  rates  are  then  accessed  by  the  DABS/ATCRBS/AIMS  PPM 
during  a  simulation  exercise,  and  merged  statistically,  using  Monte  Carlo 
techniques,  with  the  deterministically  produced  signal  environment  associated 


aThe  Discrete  Address  Beacon  System  (DABS)  was  renamed  Mode  S  after  the 
completion  of  the  DABS/ATCRBS/AIMS  PPM. 


'Crawford,  C.,  R.  and  Ehler,  C.  Wj,  The  DABS/ATCRBS/AIMS  Performance  Prediction 


Model,  FAA-RD-79-88 ,  FAA,  Washington,  DC,  November  1979,  ADA  089440. 
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with  ground-based  ATC  and  surveillance  operations.  The  DABS/ATCRBS/AIMS-  PPM 
then  predicts  the  performance  of  a  user-selected  interrogator-of-interest  (I0) 
in  the  composite  ATC  and  TCAS  signal  environment. 


This  method  of  statistically  merging  the  TCAS  signal  environment  with  the 
ATC  environment  is  permissible  since  the  time  variations  in  TCAS  signal 
activity  are  relatively  small  in  comparison  to  variations  in  ground-based  ATC 
signal  activity.  Specifically,  ground-based  ATC  systems  employ  highly 
directional  scanning  antennas;  consequently,  there  are  periods  when  an 
aircraft  is  not  within  the  mainbeam  of  a  single  interrogator,  and  periods  when 
the  same  aircraft  is  simultaneously  with  the  mainbeams  of  several 
interrogators.  This  phenomenon  leads  to  large  scan-to-scan  signal  rate 
variations. 


The  TCAS  I  and  TCAS  II  M  do  not  produce  large  time  variations  in  signal 
activity.  The  proposed  low  power,  active  TCAS  I  transmits  one  ATCRBS 

Q 

interrogation/sequence  per  second  on  an  omnidirectional  antenna.  To  simplify 
the  analysis,  TCAS  I  is  modeled  in  the  TCAS  SEM  as  transmitting  one 
interrogation  per  second.  TCAS  II  M  transmits  the  ATCRBS  interrogation 
sequence  once  per  second  on  a  wide-beam  (BW  <  130°)  antenna  which  is 
electronically  steered  to  four  positions  (forward,  left-side,  right-side,  and 
aft) .  TCAS  II  M  transmits  Mode  S  interrogations  on  an  omnidirectional 
antenna.  The  Mode  S  interrogation  rate  transmitted  by  a  given  TCAS  II 
M-equipped  aircraft  is  a  function  of  the  number  of  Mode  S-equipped  aircraft 
within  approximately  thirty  nautical  miles.  Since  the  changes  in  air- traffic 
density  throughout  the  LA  Basin  deployment  have  been  shown  to  be  negligible 
during  the  10-scan  (46  seconds)  DABS/ATCRBS/AIMS  simulation,  TCAS  rates  are 
relatively  constant,  in  view  of  these  considerations,  the  compatibility  of 
TCAS  I  and  TCAS  II  M  with  ATCRBS  and  Mode  S  can  logically  be  analyzed  using 
this  statistical  approach. 


3Welch,  J.  D.  and  Harman,  W.  H.,  Improved  TCAS  I  for  Pilot  Warning  Indication, 
AIAA/IEEE  6th  Digital  Avionics  System  Conference,  December  1984,  pp.  593-596. 
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1.3.2  Simulation  Execution 

The  execution  sequence  for  the  two  models  is  illustrated  in  Fiqure  1-1. 
The  user  first  executes  a  10-scan  DABS/ATCRBS/AIMS  PPM  simulation  to  estimate 
the  time-average  rates  at  which  ATC  interrogations  and  suppressions  arrive  at 
each  aircraft  within  a  given  deployment.  These  rates  are  then  used  within  the 
TCAS  SEM  to  estimate  the  mean  reply  efficiency  and  reply  rate  of  each 
transponder.  The  TCAS  SEM  uses  the  transponder  reply  efficiency  and  reply 
rate  to  estimate  TCAS  II  M  Mode  S  surveillance  activity.  This  is  accomplished 
as  follows.  The  TCAS  II  M  surveillance  protocol  requires  that  a  TCAS  II  M- 
equipped  aircraft  elicit  a  decodable  Mode  S  reply  once  per  second  from  all 
other  Mode  S-equipped  aircraft  within  approximately  7  nmi,  and  at  a  rate  which 
decreases  monotonically  with  range  for  aircraft  beyond  7  nmi.  The  efficiency 
with  which  a  TCAS  II  M  elicits  decodable  replies  is  related  to  the  local  fruit 
rate,  which  is  a  function  of  the  local  air  traffic  density  and  the  local 
transponder  reply  rate.  The  number  of  interrogations  required  by  a  given  TCAS 
II  M  to  elicit  a  decodable  reply  therefore  increases  with  increases  in  the 
local  fruit  rate. 

This  background  signal  environment  must  therefore  be  specified  in  order 
to  accurately  predict  TCAS  II  M  Mode  S  surveillance  rates.  With  these  input 
parameters,  the  TCAS  SEM  is  exercised  to  simulate  two  minutes  of  real  time3  to 
predict  the  time-averaged  rates  at  which  TCAS  I  and  TCAS  II  M  signals  arrive 
at  each  transponder.  The  DABS/ATCRBS/AIMS  PPM  uses  these  TCAS  signal  rates  as 
a  basis  with  which  to  merge  TCAS  signals  with  those  due  to  ground-based  ATC 
systems . 

1.3.3  Report  Organization 

The  remainder  of  this  report  is  divided  into  two  sections  and  three 
appendixes.  The  modeled  TCAS  and  ATC  transponder  systems  are  discussed  in 
Section  2.  Section  3  contains  a  tree  diagram  of  the  program  control  flow 

aThis  is  a  sufficient  time  to  allow  any  model-induced  transients  to  decay. 


Figure  1-1.  Analysis  structure 
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and  detailed  desert ption.s  In  Program  I>ftM t<jn  Language  ( PDL)  of  each  subroutine 
in  the  model.  The  PDL  replaces  the  flow-chart  method  of  document! nq  software 
end  y.ives  a  more  detailed  and  accurate  description  of  the  code.  A  PDL  was 
written  for  the  driver  and  each  subroutine  in  the  TCAS  SEM,  and  each  includes 
the  following  elements:  Purpose,  Inputs,  Procedure,  Outputs,  Variables  of 
Interest,  and  Process.  The  first  four  elements  of  the  PDL  contain  general 
information  about  the  program  segment:  its  function,  its  inputs,  the 
procedure  by  which  it  achieves  its  function,  and  its  outputs.  The  last  two 
elements  contain  specific  information  about  the  code  and  were  provided  to  ease 
understanding  and  modification  of  the  code  by  the  programmer.  Specifically 
included  are  a  definition  of  the  variables  used  in  the  program  seqment  and 
pseudo-code  that  explains  the  coded  listing  in  a  nearly  line-by-line  fashion. 

APPENDIX  A  contains  a  data  dictionary  containing  all  the  common  variables 
in  the  model .  APPENDIX  B  lists  a  fully  commented  ASCII  FORTRAN  version  of  the 
model,  and  APPENDIX  C  illustrates  the  procedure  for  executing  the  model  and  a 
sample  of  its  output. 
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SUCTION  2 
MODELED  SYSTEMS 

2 • 1  introduction 

*  •*  T  * 

This  section  contains  a  brief  description  of  the  technical 
characteristics  and  surveillance  procedures,  as  modeled,  of  TCAS  I  and 
TCAS  II  M.  This  is  followed  by  a  description  of  the  modeled  ATC  transponder 
systems. 

2.2  TCAS  OPERATIONS  AND  TECHNICAL  CHARACTERISTICS 

2. 2.-1  TCAS  II  M 

TCAS  II  M  is  an  airborne  system  that  is  designed  to  use  existing  ATCRBS 
and  Mode  S  signal  formats  to  perform  the  collision-avoidance  function. 

TCAS  II  M  tracks  ATCRBS-equipped  aircraft  in  its  vicinity  via  the  whisper- 
shout  power  management  technique.  Nearby  Mode  S-equipped  aircraft  are  tracked 
via  discrete  Mode  S  transactions.  The  ATCRBS  whisper-shout  surveillance 
sequence  is  transmitted  once  per  second.  The  Mode  S  transaction  update 
frequency  is  related  to  the  position  of  the  Mode  S  equipped  aircraft  relative 
to  the  position  of  the  TCAS  II  M.  Mode  3  and  ATCRBS  surveillance  procedures 
are  discussed  in  detail  below.  TCAS  II  M  characteristics  are  given  in 
TABLE  2-1. 

2. 2. 1.1  Mode  S  Surveillance  Process.  Initially,  each  Mode  S  aircraft  is 
assumed  to  be  in  the  null  state.  Upon  detection  of  a  squitter,  the  aircraft 
is  placed  in  the  squitter  state.  If  a  second  squitter  is  received  within 
16  seconds  of  the  first,  the  aircraft  is  placed  in  the  acquisition  state, 
unless  the  altitude  separation  is  greater  than  9000  feet,  in  which  case  the 
intruder  aircraft  remains  in  the  squitter  state.  A  target  aircraft  is  purged 
from  squitter  processing  if  a  second  squitter  reply  is  not  received  within 
16  seconds  of  the  first  reply.  These  replies  may  be  either  replies  elicited 
by  another  TCAS  II  M-equipped  aircraft  or  unelicited  replies. 
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TABU?  2-1 

TCAS  IX  M  CIIARACTHH  fSTlCS 


Chare ter is tic 

Mode  S 

ATCRBS 

Mean 

Standard  Deviation 

Mean 

Standard  Deviation 

Peak  Radiated  Power3 

54  dBn 

0.5 

49  dBm 

0.5 

Sensitivity3 

-77  dBm; 

0.75 

-74  dBm 

0.75 

9 

Antenna  Type 

Omnidirectional 

t. 

Directional  (130°) 

transmitter  power  and  sensitivities  were  assigned  using  a  normal 
distribution. 

^At  sum-difference  crossover  points. 


While  the  aircraft  is  in  the  acquisition  state,  TCAS  II  M  interrogates  to 
determine  if  the  aircraft  should  be  placed  in  the  roll-call  or  dormancy 
state.  The  number  of  interrogations,  transmitted  during  acquisition  is  a 
function  of  the  TCAS  II  M  ability  to  receive  and  correlate  replies  from  the 
intruder  Mode  S  aircraft.  There  are  four  acquisition  trials,  each  consisting 
of  six  one-second  scans.  TABLE  2-2  shows  the  maximum  number  of  failed 
interrogations  allowed  during  each  of  the  four  trials.  For  example,  during 
the  first  scan  of  the  first  trial,  TCAS  II  M  may  transmit  as  many  as  four 
interrogations  (one  successful,  three  unsuccessful). 

If  two  correlating  replies  are  received  during  any  trial  sequence,  the 
intruder  aircraft  is  placed  either  in  the  dormancy  state  or  in  the  roll-call 
state.  The  aircraft  is  placed  in  the  dormancy  state  if  TCAS  II  M  estimates 
the  "Time  to  Endanger"  (TE  =  range/maximum  closure  rate)  to  be  greater  than 
43  seconds;  otherwise,  the  intruder  is  placed  in  the  roll-call  state. 

If  no  replies  are  received  during  any  one  of  the  trials,  the  intruder 
aircraft  is  returned  to  the  squitter  state  tor  a  period  not  to  exceed  40 

®Lee,  J.,  Data  Package  for  TCAS- IT  Antenna,  R-3761 -1 0266,  Dalmo  Victor 
Company,  29  March  1982,  (Proprietary  Data). 
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TA'm.K  2-2 

MAXIMUM  NUMBER  OF  FALLM)  INTERROGATIONS  ALLOWED  DURING 
EACH,  SCAN  OF  'Ll  IK  ACQUIS  IT  1,()N  TRIADS 


Scan 

Acquisition;  Trial 

1 

2 

3 

4 

1 

3 

2 

1 

1 

2 

3 

2 

1 

0 

3 

3 

2 

1 

0 

4 

0 

o 

0 

0 

5 

0 

d 

0 

0 

6 

o 

d 

0 

0 

- 

- 

seconds.  Upon  the  return  of  intruder  aircraft  to  squitter  state,  a  running 
sum,  initialized  at  0,  is  maintained.  The  sum  is  decremented  by  one  for  each 
succeeding  scan  that  a  squitter  is  not  received  and  is  incremented  by  an 
amount  as  shown  in  TABLE  2-3  for  each  scan  that  a  squitter  is  received.  The 
intruder  is  purged  from  the  squitter  state  and  placed  into  the  null  state  when 
the  value  of  the  running  sum  becomes  less  than  or  equal  to  -40.  It  is 
transferred  to  the  acquisition  state'  whenever  the  running  sum  exceeds  0  unless 
the  altitude  separation  is  greater  than  9000  feet; 


TABLE  2-3. 

INCREMENTS  BY  SCAN  TO  SQUITTER  SUM  FOR  CLEAR 
RECEPTION  OF  SQUITTER 


Scan 

0 

1 

2 

3 

4  (or  more) 

Increment 

20 

16 

8 

4 

2 

Aircraft  assigned  tp  the  dormancy  state  are  not  interrogated.  The 
aircraft  remains  in  tiie  dormancy  state  for  a  period  of  time  equal  to  TE  minus 
40  seconds.  After  this  time,  the  aircraft  is  placed  in  the  squitter  state. 
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If;  the  aircraft  is  assigned  to  the  roll-call  state  (i.e.,  the  TE  is  less 
than  43  seconds),  TCAS  II  M  interrogates  the  intruder  each  second  to  update 
its  track  record.  TABLE  2-4  shows  the  maximum  number  of  interrogations 
permitted  to  elicit  a  decodable  reply  during  each  one-second  scan.  This  is 
referred  to  as  the  ten-second  roll-call  sequence,  if  the  entire  ten-scan 
sequence  elapses  with  no  valid  reply,  interrogations  to  the  intruder  aircraft 
are  terminated,  and  the  aircraft  is  returned  to  the  squitter  state. 


2. 2. 1.2  Whisper-shout  ATCRBS  surveillance.  The  current  TCAS  II  M  design 
employs  a  four-beam  directional  antenna  on  top  of  the  aircraft  and  an 
omnidirectional  antenna  on  the  bottom  of  the  aircraft.  Each  TCAS  II  M- 
equipped  aircraft  tracks  ATCRBS-equipped  aircraft  via  the  whisper-shout  power 
management  technique  shown  in  Figure  2-1 . 

This  technique  uses  directional  interrogations  from  each  of  the  four 
beams  of  the  top  antenna.  The  interrogation  sequence  starts  with  a  lower 
power  interrogation  level  (26  dBm)  and  proceeds  to  higher  power  interrogation 
levels  in  1-dB  increments.  A  total  of  83  whisper-shout  interrogations  are 
transmitted  each  second  unless  interference  limiting  adjustments  are 
required,  interrogations  are  eliminated  from  the  sequence  in  the  order  shown 
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-  TOTAL  RADIATED 

INTERFERENCE 

INTERROGATION  POWER 

LIMITING 

(dBm) 

PRIORITY 

TOP  S..I 

49 

1 

ANTENNA  S.I 

48 

5 

S.  .1 

47 

9 

FORWARD  S.I 

46 

13 

DIRECTION  S..I 

45 

17 

S.I 

44 

21 

S.  .1 

43 

25 

S.I 

42 

29 

S.-.I 

41 

33 

S.I 

40 

37 

S.  .1 

39 

41 

S.I 

38 

45 

S.  .1 

37 

49 

S.I 

36 

53 

S.-.I 

35 

57 

S.I 

34 

61 

S.-.I 

33 

64 

S.I 

32 

67 

S..I 

31 

70 

S.I 

30 

73 

S..I 

29 

76 

S.I 

28 

77 

S..I 

r  27 

78 

...  I 

26 

79 

TOP  :S..I 

45 

2,3 

ANTENNA  S.I’ 

44 

6,7 

S.  .1 

43 

10,11 

LEFT  &  RIGHT  S.I 

42 

14,-15 

DIRECTIONS  S..I 

41 

18,19 

S.I. 

40 

22,23 

S.  .1 

39 

26  ,.27 

S.I 

38 

30,31 

S.  .1 

37 

34,35 

S.I 

36 

38,39 

S.  .1 

35 

42,43 

S.I 

34 

46,47 

S..I 

33 

50,51 

S.I 

32 

'54,55 

S.  .1 

3:1 

58,59 

S.I 

30 

62,63 

S..I 

29 

65,66 

S.I  ■ 

28 

68,69 

S.  .1 

27 

71  ,72 

. .  .1 

26 

74,75 

•  •  •  X 

“1 - — — I - : — T - T 


2.4  34  44  54 

RADIATED  POWER  (dBm) 


Figure  2-1.  Whisper-shout  interrogation  sequence.  (Page  1  of  2) 
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TOTAL  RADIATED 
INTERROGATION  POWER 
(dBm) 


S.I 

S..I- 

S.I 

S..I 

TOP 

S.I 

ANTENNA 

S.  .1 

S.I 

AFT 

S.  .1 

DIRECTION 

S.I 

S..I 

S.I 

s. . 

S.I 

S..I 

.  .1 

INTERFERENCE 

LIMITING 

PRIORITY 


S.  .1 
S.  .1 
S..I 
.  .1 


BOTTOM  OMNI 
ANTENNA 


Notes : 


RADIATED  POWER  (dBm) 


"I"  indicates  total  radiated  power  of  P,| ,  P^,  and  P^  interrogation 
pulses. 

"S"  indicates  total  radiated  power  of  P-|  and  P^  suppression  pulses. 

"S.I"  means  that  the  total  radiated  suppression  power  is  2  dB  less 
than  the  total  radiated  interrogation  power. 

"S..I"  means  that  the  total  radiated  suppression  power  is  3  dB  less 
than  the  total  radiated  interrogation  power. 
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in  Figure  2-1  if  interference  limiting  adjustments  are  required.  The 
.interference  limiting  procedures  are  discussed  in  subsection  2.2.3. 

Each  successive  interrogation  in  the  sequence  is  preceded  by  a 
suppression.  This  suppression  is  used  to  prevent  the  more  sensitive 
transponders  from  replying  again.  The  suppression  pulse  is  at  a  power  level 
2  or  3  dB  lower  than  the  accompanying  interrogation.  Partitioning  the  ATCRBS 
environment  with  respect  to  transponder  sensitivity  reduces  the  number  of 
overlapping  replies  received  by  the  TCAS  II  M  receiver.  The  function  of  the 
transmission  from  the  bottom  antenna  is  to  minimize  false  targets  that  are 
generated  by  multipath  conditions. 

2.2.2  TCAS  I 

TCAS  I  is  a  lower-cost,  limited-performance  version  of  TCAS  that  is 
compatible  with  TCAS  II  M  operation.  Its  main  functions  are  1 )  to  support 
surveillance  for  TCAS  II  M  as  well  as  ground  air  traffic  control  and  (2)  to 
maintain  surveillance  of  nearby  transponder-equipped  aircraft.  To  support  the 
surveillance  function,  TCAS  I  interrogates  once  per  second  using  an  ATCRBS 
Mode  C  format.^0  The  interrogation  is  transmitted  on  an  omnidirectional 
antenna.  The  transmission  power  and  interference  limiting  standards  for 
TCAS  I  have  been  proposed  but  have  not  been  formally  adopted  (see 
Reference  8). 


Each  TCAS  II  M  unit  incorporates  interference  limiting  to  ensure  that 
TCAS  II  M  signals  will  not  interfere  with  other  systems  when  operating  in 
high-density  airspace.  TCAS  II  M  controls  its  interrogation  rate  and/or  power 
to  minimize  interference  effects  by  conforming  to  a  set  of  three  specific 
inequalities.  This  ensures  that  all  interference  effects  resulting  from  these 

10Traffic  Alert  and  Collision  Avoidance  System  (TCAS  I)  Design  Guidelines, 
FAA-RD-82-1 2,  FAA,  Washington,  DC,  April  1982. 
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interrogations,  together  with  the  interrogations  from  all  other  TCAS  II  M 
airborne  interrogators  in  the  vicinity,  are  kept  to  a  low  level.  The  number 
of  Mode  S  and  ATCRBS  interrogations  made  by  a  TCAS  II  M-equipped  aircraft  and 
the  number  of  other  TCAS  II  M-equipped  aircraft  within  squitter  range  are 
computed.  These  computed  quantities  are  used  in  the  following  three 
interference-limiting  equations : 

I  P(i)  280 

s  - - p - -  (2-1 ) 

i=1  250  watts  1  +  NTA 


I 

S  M(i )  F  0.01  second  (2-2) 

i=1 


K  PA(k)  80 

S  — -  F - -  (2-3) 

k=1  250  watts  1  +  NTA 

The  variables  in  these  inequalities  are  defined  as  follows: 

I  =  the  total  number  of  Mode  S  interrogations  transmitted  in  a 
1 -second  period. 

i  =  the  index  number  of  the  current  Mode  S  interrogation; 
i  —  1,  2,  ...,  I. 

P(i)  =  the  total  radiated  Mode  S  power  (in  watts)  from  the 
antenna  for  the  i-th  interrogation. 

NTA  =  the  number  of  airborne  TCAS  II  M  interrogators  that  are 
detected  by  squitter. 

M(i)  =  the  duration  of  the  mutual  suppression  interval  for  the 
TCAS  II  M  transponder  associated  with  the  i-th 
•interrogation. 

K  =  the  total  number  of  ATCRBS  interrogations  in  a  1 -second 
period. 

k  =  the  index  number  of  the  ATCRBS  interrogation; 
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k  s  If  2/ • •  • r  K. 

PA(k)  ®  the  total  radiated  power  (in  watts)  from  the  antenna  for 
the  k-th  ATCRBS  interrogation. 

The  TCAS  IX  M  unit  will  determine  once  per  second  if  the  power  and/or 
interrogation  rate  should  be  adjusted.  Each  TCAS  II  M  varies  the  system 
parameters  computed  in  inequalities  (2-1 ),  (2-2)  t  and  (2-3)  to  maximize,  the 
surveillance  ranges  for  Mode  S  and  ATCRBS  aircraft,  while  limiting  the  total 
power  and  interrogation  rate  not  to  exceed  set  values. 

At  the  beginning  of  each  surveillance  update  interval  (each  second),  .the 
number  of  TCAS  II  M  interrogators  detected  by  squitter  is  used  to  evaluate  the 
current  right-hand  limits  in  inequalities  (2-1)  and  (2-3).  The  average  values 
over  a  1 6-second  interval  for  the  Mode  S  variables  in  the  inequalities  are 
also  calculated.  If  the  average  value  of  the  left-hand  side  of  either 
inequality  (2—1 )  or  (2-2)  equals  or  exceeds  the  current  limit,  both  the  Mode  S 
and  the  ATCRBS  surveillance  parameters  are  modified  to  satisfy  the 
inequalities. 

The  ATCRBS  surveillance  activity  is  modified  by  sequentially  eliminating 
elements  of  the  whisper-shout  sequence.  Each  whisper-shout  step  is  uniquely 
associated  with  a  TCAS  II  M  receiver  Minimum  Triggering  Level  (MTL)  setting. 
Thus,  the  receiver  sensitivity  in  ATCRBS  surveillance  periods  is  automatically 
tailored  to  match  these  poyer  reductions. 

Mode  s  surveillance  activity  is  modified  by  adjusting  Mode  S 
interrogation  power  and/or  squitter  sensitivity.  In  evaluating  these 
inequalities,  16-second  averages  of  the  Mode  S  parameters  and  current  or 
anticipated  values  of  the  ATCRBS  parameters  are  used.  After  the  Mode  S 
variables  (power  and/or  squitter  sensitivity)  have  been  changed  to  satisfy  the 
inequalities  during  the  update  interval,  the  only  change  allowed  during  the 
next  16  seconds  is  a  reduction  in  the  number  of  whisper-shout  steps  needed  to 
satisfy  inequality  (2-31.  ®?is  is  designated  the  16-second  freeze. 
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2.3  ATC  TRANSPOND KR  CHARACTERISTICS 

Each  transponder-equipped  aircraft  is  represented  by  an  antenna  (omni¬ 
directional  in  azimuth),  antenna  cable,  receiver/processor,  and  a 
transmitter.  Ihe  (quantized)  vertical  antenna  gain  patterns  were  derived  from 
measured  data  for  the  Boeing  727  antenna/airframe  configuration..3  For 
modeling  purposes,  it  is  assumed  that  ATCRBS  transponder-equipped  aircraft  are 
fitted  with  a  single,  bottom-mounted  antenna,  while  Mode  S  transponder- 
equipped  aircraft  are  fitted  with  both  top-  and  bottom-mounted  antennas. 
Polarization  losses  are  neglected.  The  cable  loss  from  the  antenna  terminals 
to  the  receiver/ transmitter  terminals  is  assumed  to  be  3  dB  for  the  entire 
transponder  population. 

The  receiver  sensitivity  and  transmitter  power  output  of  each  type  of 
transponder  are  assigned  statistically  in  accordance  with  measured  data.^ 

For  ATCRBS  transponders,  the  values  of  receiver  sensitivity  range  between 
-51  dan  and  -90  dan,  with  an  average  value  of  -74  dBnj  the  values  of 
transmitter  power  range  between  46  .dan.  and  65  dBm,  with  an  average  power  of  57 
dan. 


Mode  S  transponder-equipped  aircraft  receiver/transmitter  characteristics 
are  assigned  using  a  normal  probability  distribution  function.  The  receiver 
sensitivity  distribution  for  Mode  S  transponder-equipped  aircraft  that  are  not 
TCAS  II  M-equipped  are  assigned  using  a  mean  value  of  -77  dBm  with  a  standard 
deviation  of  1.5  dB.  The  sensitivity  distribution  for  Mode  S  transponder- 
equipped  aircraft  that  are  TCAS  II  M-equipped  is  constructed  using  a  mean 
value  of  -77  dBm  with  a  standard  deviation  of  0.5  dB.  Reply  power  levels  for 
the  two  populations  of  Mode  S  transponders  are  assigned  in  a  similar  way:  an 
average  reply  power  of  57  dBm  for  both  populations  with  standard  deviations  of 
1.5  dB  for  Mode  S  aircraft  that  are  not  TCAS  II  M-equipped,  and  0.5  dB  for 

aPatterns  were  supplied  to  ECAC  by  the  FAA. 

11 

Colby,  G.  V.  and  Crocker,  E.  A.,  Final  Report  Transponder  Test  Program, 
FAA-RD-72-30,  FAA,  Washington,  DC,  April  1972. 
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Mode  S  aircraft  that  are  TCAS  II  M-equipped. 

Transponders  are  subjected  to  a  variety  of  siqnal  formats  from  ATCRBS 
interrogators,  Mode  S  interrogators,  and  TCAS  interrogators.  The  reaction  o: 
a  transponder  receiver/processor  and  transmitter  to  each  type  of  siqnal  is,  in 
general,  different  for  Mode  S  and  ATCRBS  transponders.  TABLE  2-5  lists  the 
different  types  of  signals  that  may  be  received  at  transponders,  and  the 
attendant  receiver/processor  and  transmitter  action. 

TABLE  2-5 

TRANSPONDER  INTERROGATION  PROCESSING  AND  DEAD  TIMES 


Transmission  Type 


ATCRBS 

ATCRBS- 

ATCRBS- 

Mode  S 
(All- 


Interrogation 

Only  Interrogation3 

Suppression 

Interrogatipn 
Call  and  Roll-Call) 


ATCRBS  Interrogation 
ATCRBS-Only  Interrogation 
ATCRBS  Suppression 
Mode  S  Interrogation 


Mode  S  Interrogation 

(not  at  transponder  address) 


Mode  S  All-Call  Interrogation 


ATCRBS 

ATCRBS 

ATCRBS 

ATCRBS 

Mode  S 
Mode  S 
Mode  S 
Mode  S 


Mode  S 


Mode  S 


Receiver 

Dead  Time  (js) 

Transmitter 

Action 

60 

Reply 

60 

Reply 

35 

Suppression 

35 

Suppression 

60 

Reply 

24 

Suppression 

35 

Suppression 

192  (short 
reply) 

Reply 

248  (long 
reply) 

Reply 

20  (short 
interrogation) 

Suppression 

32  ( long 
interrogation) 

Suppression 

128 

Replyb 

'ATCRBS-only  interrogations  are  transmitted  by  Mode  S  sensors  and  TCAS  II  M 
interrogators. 

3The  probability  of  reply  of  Mode  S  transponders  to  Mode  S  All-C&ll 
Interrogation  is  controlled  by  data  contained  in  the  interrogation. 
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SECTION  3 
MODEL  DESCRIPTION 

3.1  INTRODUCTION 

The  TCAS  SEM  is  divided  into  a  main  driver  program  and  24  separate 
subroutines,  each  of  which  performs  a  specific  function.  Figure  3-1  shows  the 
major  functions  of  the  model  and  identifies  the  subroutines  that  perform  those 
functions.  To  the  left  of  each  subroutine  shown  on  the  diagram  i3  a  general 
description  of  the  function ( s)  that  it  performs.  The  information  contained  in 
this  section  is  presented  in  the  form  of  PDI^  (program  design  language)  to  be 
used  in  conjunction  with  the  actual  code  of  the  TCAS  SEM  (APPENDIX  B).  The 
PDLs  provide  a  detailed  description  of  the  variables  and  the  logic  of  each 
subroutine. 


3.2  OPERATIONAL  DESCRIPTION 

The  DABS/ ATCRBS/ AIMS  PPM  and  the  TCAS  SEM  were  designed  in  ASCII  FORTRAN 
for  use  on  the  ECAC  Sperry  1100/82  computer.  The  TCAS  SEM  is  machine-dependent 
because  of  its  use  of  system  subroutines  and  system  functions. 


3.2.1  Input/Output  Files 


The  DABS/ ATCRBS /AIMS  PPM  creates  an  input  disk  file  (See  TABLE  3-1 )  for 
the  TCAS  SEM  that  contains  average  interrogation  and  suppression  rates  due  to 
ground  air  traffic  control  for  each  aircraft  in  the  deployment.  The  aircraft's 
position  (latitude,  longitude,  and  altitude),  type  (ATCRBS,  Mode  S,  or 
TCAS  II  M) ,  and  its  velocity  (East-West,  North-South,  and  vertical  directions) 
are  supplied  by  the  LA  Basin  Model  (Reference  3)  using  the  format  of 
TABLE  3-2.  Using  this  information,  the  TCAS  SEM  simulates  TCAS  activity  during 
a  120-second  interval.  At  the  end  of  the  simulation,  the  TCAS  SEM  creates  a 
disk  file  which  includes  the  time-average  rates  at  which  TCAS  signals  arrive  at 
each  aircraft.  The  types  of  signal  rates  stored  are  listed  in  TABLE  3-3. 


DOT/FAA/PM-85/22 


Section  3 


Driver 

Set  initial  conditions 

Compute  total  power  sent  over 
N  whisper-shout  levels 

Load  ATCRBS  whisper-shout  arrays 

Load  aircraft  deployment  file 


Figure  3-1 .  Tree  diagram  of  the  TCAS  SEM 
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TABLE  3-1 

FORMAT  OF  INPUT  PILE  'it)  TCAS  SUM  FORM  HI)  BY  DABS/  ATCRBS/  AIMS  PPM 


Beginning 

Column 

Length 

Format 

Quantity 

11 

10 

110 

Interrogation  Rate  due  to 

ground  ATC  (per  second) 

21 

10 

no 

Suppression  Rate  due  to 
ground  ATC  (per  second) 

Beginning 

Column 


TABLE  3-2 

FORMAT  OF  DEPLOYMENT  FILE 


Length 


Format 


Quantity 


1: 

2 

12 

Latitude  (Degrees) 

3 

2 

.  12 

Latitude  (Minutes) 

5 

2 

12 

Latitude  (Seconds) 

7 

1 

A1 

Hemisphere  (N-S ) 

8 

3 

13 

Longitude  ( Degrees ) 

vr 

2 

12 

Longi tude  (Minutes ) 

13 

2 

12 

Longitude  (Seconds) 

15 

1 

A1 

Hemisphere  (E-W) 

19 

8 

j  F8.0 

Altitude  (feet  msl) 

36 

4 

A4 

Type 

41 

6 

F6.4 

Westward  Velocity  (nmi/s) 

48 

6 

F6.4 

Northward  Velocity  (nmi/s) 

55 

8 

F8.4 

Upward  Velocity  (ft/s) 

1  izv  BEtimr 
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3.2.2  Internal  Data  Structure 


In  order  to  connect  each  segment  of  the  TCAS  SEM,  common  blocks  of  data 
were  designated  to  share  information.  The  data  dictionary  in  APPENDIX  A 
describes  each  common  variable  and  its  units. 

3.3  MODEL  SUBROUTINE  DESCRIPTIONS 


The  subroutines  of  the  model  are  described  in  PDL  form  in  this  section, 
in  the  order  in  which  they  appear  on  the  tree  diagram  of  Figure  3-1 .  The  PDLs 
are  divided  into  Purpose,  Inputs,  Procedure,,  Outputs,  Variables  of  Interest, 
and  Process.  This  method  of  documentation  provides  a  detailed  description  of 
each  subroutine  in  a  form  that  can  be  easily  updated  as  modifications  are  made 
to  the  model. 
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3.3.1  Model  Driver:  Cl H CAS 

PURPOSE:  To  drive  the  TCAS  SKM: 

1.  Set  initial  conditions  and  load  aircraft  files. 

2.  Calculate  near  time-independent  effects  of  TCAS  I  (if  desired)  and 
TCAS  II  M  emissions. 

3.  Calculate  time-dependent  effects  of  TCAS  II  M  on  the  environment. 

4.  Record  the  results  of  the  TCAS  SEM  on  disk  files  to  be  used  in  the 
DABS/ ATCRBS/ AIMS  PPM. 

INPUTS:  ATC  files  from  DABS/ ATCRBS/ AIMS  PPM,  and  transponder  deployment 
information. 

PROCEDURE:  First,  all  the  subroutines  that  set  up  the  initial  conditions  of 

the  simulation  (e.g.,  whisper-shout  power  levels,  number  of  aircraft  in 
the  deployment,  etc.)  are  called.  Next,  a  simulation  of  120  seconds  of 
the  operation  of  the  TCAS  II  M  system  is  performed.  During  the 
simulation,  the  Mode  S  and  ATCRBS  interrogation  and  suppression  rates  due 
to  TCAS  II  M  interrogations  is  computed  for  all  aircraft  in  the 
environment,  along  with  the  mutual  suppression  rate  of  each  TCAS  II  M 
receiver.  At  the  end  of  the  simulation,  the  average  value  of  Mode  S  and 
ATCRBS  rates  are  computed  and  stored  in  external  files  to  be  used  in 
conjunction  with  the  DABS/ATCRBS/AIMS  PPM. 

OUTPUTS:  ATC  files  for  use  in  DABS/ATCRBS/AIMS  PPM. 

VARIABLES  OP  INTEREST 
Description 

Number  of  TCAS  II  M-equipped  aircraft 
Clock 

TCAS  II  M-equipped  aircraft  of, interest 
TCAS  II  M  transmission  indicator 
Print  indicator 
TCAS  I  analysis  indicator 


Variable  Name 
NUMTCA 
ITIME 
II 

LPLUS1 

PRINT 

T1 
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PROCESS : 

1  . 

2. 

3. 


4. 


5. 


6. 

7. 


8. 


9. 


10. 


11  . 

12. 


Read  in  user's  options  (print  option  and  TCAS  X  analysis  option). 

CALL  INIT:  Set  initial  conditions  of  all  common  block  variables. 

CALL  ASPINT:  Initialize  array  containing  total  whisper-shout  power 
radiated. 

CALL  WSPOWE:  Load  whisper-shput  power  levels  for  TCAS  II  M-equipped 
aircraft. 

CALL  INPUT:  Load  aircraft  deployment  from  the  transponder  deployment 
file  (usually  the  LA  Basin  Model)  and  interrogation  and  suppression 
rates  from  the  DABS/ATCRBS/AIMS  PPM. 

CALL  TRANSP:  Assign  power  and  sensitivity  for  each  transponder. 

CALL  TSTART:  Set  squitter  phase  for  each  TCAS  II  M-equipped  aircraft 
and  a  pointer  file  to  locate  TCAS  II  M-equipped  aircraft  in  the 
aircraft  characteristics  file. 

CALL  LOAD:  Compute  heading  of  each  TCAS  II  M?  update  MODE  S  track 
file  (i.e.,  load  array  containing  power,  range,  and  bearing 
relationships  between  TCAS  II  M-equipped  and  all  other  aircraft 
within  50  nmi);  and  compute  the  air  traffic  densities  about  each  TCAS 
II  M,  as  well  as  the  average  density  about  all  TCAS  II  M-equipped 
aircraft. 

CALL  PRESET:  Approximate  interference-limiting  effects  on  each 
TCAS  II  M-equipped  aircraft. 

IF  TCAS  I  analysis  desired,  *'THEN 

A.  CALL  TCAS1 :  Determine  signal  rates  due  to  TCAS  I  ATCRBS 
surveillance . 

BID  IF 

LOOP  over  120-second  time  interval,  in  one-second  steps. 

A.  CALL  LOAD:  At  times  40,  80,  and  120  seconds:  update  all 

aircraft  positions;  update  MODE  S  track  file  and  compute  the  air 
traffic  densities  about  each  TCAS  II  M-equipped,  as  well  as  the 
average  density  about  any  given  TCAS  II  M-equipped  aircraft. 

LOOP  over  all  TCAS  II  M-equipped  aircraft. 

1.  CALL  ANTGAN:  Compute  antenna  elevation  patterns  between 
given  TCAS  II  M-equipped  aircraft  and  all  other  aircraft 
within  50  nmi  of  the  TCAS  II  M. 


B. 
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2.  IP  time  equals  1,  20  ,  40  ,  60,  HO,  100,  or  120  seconds,  THKN 
a.  CAM.  FRUITA:  Compute  the  reply  efficiency  of  each 

aircraft  to  the  TCAS  II  M-equipped  aircraft  and  the 
associated  fruit  rate  to  that  efficiency. 

3.  BIO)  IF 

4.  CALL  DISMODs  Schedule  Mode  S  discrete  interrogations. 

5.  CALL  TCSM0T:  Compute  smooth  (or  average)  TCAS  II  M 
emission  powers  and  interrogation  rates  over  the  last  16- 
second  interval.' 

6.  IF  TCAS  II  M  transmitted  Mode  S  interrogations  THEM 

a.  CALL  DISINT:  Compute  Mode  S  effects  from  TCAS  II  M  to 

f 

all  other  aircraft  in  range  of  the  TCAS  II  M. 

7.  BID  IF 

8.  IF  time  equals  1,  40,  80,  dr  120  seconds,  THEN 

a.  CALL  ATM0D:  Compute  whisper-shout  effects  of 
TCAS  II  M  on  all  other  aircraft  within  range. 

9.  END  IF 

10.  IF  time  is  greater  than  three  seconds,  THEN 

a.  CALL  INTLI:  Adjust  TCAS  II  M  characteristics  to 
satisfy  interference-limiting  inequalities. 

11 .  END  IF 

12.  CALL  STATS;  Compute  average  rates  from  all  TCAS  II  M- 
equipped  aircraft  to  all  other  aircraft. 

C.  BID  LOOP 

/ 

13  .  END  LOOP 

14.  CALL  FILES:  Load  rate  files  for  use  in  the  DABS/ATCRBS /AIMS  PPM. 

1 5 .  End . 

Called  by:  None. 

Subroutines  called:  INIT,  ASPINT,  WSPOWE,  INPUT,  TRANSP ,  TSTART ,  LOAD, 

PRESET,  TCAS1  (optional),  ANTGAN,  FRUITA,  DISM0D,  TCSM0T,  DISINT,  ATM0D, 
INTLI,  STATS,  FILES 


rjAWJKJw_vrwASJ»ix*»-x*»iT4,*  k- 


,.itu.TiiUJ^a-.xuoiJU-si  .un.ux  wiUAJi*.  umixuai 


DOT/FAA/PM-85/22 

3.3.2  Subroutine:  IHIT 

PURPOSE:  To  set  initial  values  of  all  common  variables. 

INPUTS:  All  common  variables.  (Refer  to  TCAS  SEM  Data  Dictionary, 
APPENDIX  A.) 

PROCEDURE:  Set  each  common  variable  to  its  initial  value. 

OUTPUTS:  Initial  values  Eor  all  common  variables. 
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Called  by:  CIRCAS 
Subroutines  called:  None 


DOT/FAA/PM-85/22 


Section  3 


3.3.3  Subroutine;  _  ASPIHT 

PURPOSE:  To  initialize  the  array  containing  the  total  power  transmitted  using 
N  whisper-shout  levels. 

INPUTS:  None. 

PROCEDURE:  A  loop  is  performed  over  all  whisper-shout, levels.  At  each 

level,  the  total  power  transmitted-  by  the  top  (in  the  front,  sides,  and 
back)  and  bottom  antennas  is  computed  and  stored  in  the  appropriate  array. 

OUTPUT:  The  array  containing  the  sum  of  the  whisper-shout  power  levels  for 
N  transmitted  levels. 

VARIABLES  OF  INTEREST 
Description 

Total  power  radiated  with  N  levels 

PROCESS : 

1 .  Define  1  dB  and  2  dB. 

2.  Define  the  minimum  levels  transmitted  by  the  top  and  bottom  antennas 
in  watts. 

3.  Set  total  sum  power  =  0  when  no  whisper-shout  levels  are  sent. 

4.  LOOP  over  all  83  priority  levels. 

A.  Find  the  number  of  whisper-shout  levels  sent  on  the  top  antenna 
(front,  right,  left,  and  back  lobes)  and.  bottom  antenna  for  a 
given  priority  level. 

B.  Compute  the  total  power  transmitted  by  the  top  and  bottom 
antennas,  and  store  this  value  in  the  appropriate  position  in 
the  sum  power  array. 

5.  BHD  LOOP 

6.  Return. 

Called  by:  CIRCAS 

Subroutines  called:  None. 


Variable  Name 
ATSUMP 
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3.3.4  Sub  routine:  WSPOMK 

PURPOSE:  To  load  the  S3  levels  of  ATCKBS  whisper-shout  interrogation  power 

for  the  TCAS  II  M  antennas  and  store  them  in  arrays  that  correspond  to  the 
location  of  the  antennas. 

INPUTS:  Number  of  whisper-shout  (w-s)  levels  for  the  top  antennas  (total  of 
79  levels)  which  are  located  at  the  front  (24  levels),  sides  (20  levels 
each  side),  and  back  (15  levels)  of  the  aircraft  and  the  number  of  levels 
for  the  bottom  antenna  (4  levels).  These  levels  were  obtained  from  the 
TCAS  II  M  Minimum  Operational  Standards  (MOPS)  (Reference  5). 

PROCEDURE:  The  79  whisper-shout  levels  that  can  be  transmitted  by  the  TCAS  II  M 
top  antenna  (24  on  the  front,  20  on  each  side,  and  15  on  the  back)  and  the  4 
whisper-shout  levels  that  can  be  transmitted  by  the  bottom  antenna  are 
computed  and  stored  in  the  appropriate  arrays. 

OUTPUTS:  Four  arrays ' containing  whisper-shout  power  levels  by  location  of 
antenna. 

VARIABLES  OF  INTEREST 
Description 

Whisper-shout  levels  of : 

Top-front  antenna 
Top-side  antennas 
Top-back  antenna 
Bottom  antenna 

PROCESS : 

1.  Initialize  the  peak  power  for  the  top-front  antenna  to  49  dBm. 

2.  LOOP  over  the  24  whisper-shout  power  levels  of  the  front  antenna 
A.  Calculate  this  power  level  by  decreasing  the  peak  power  by  1  dB 

per  level  (starting  at  49  dBm  and  decreasing  to  26  dBm). 


Variable  Name 

IPOWF 

IPOWS 

IPOWB 

IPOWBO 


1  «i  - 
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3. 

4. 

5. 


6. 

7. 

8. 


9. 

10. 

11 . 


12. 

13. 

14. 


B.  Calculate  the  total  radiated  power  of  the  top-front  antenna. 

END  LOOP 

Initialize  the  peak  power  for  the  top-side  antennas  to  45  dBm. 

LOOP  over  the  20  levels  (each  side)  of  the  side  antennas. 

A.  Calculate  this  power  by  decreasing,  the  peak  power  by  1  dB  per 
level  (from  45  to  26  dBm). 

B.  Calculate  the  total  radiated  power  of  the  side  antennas. 

BID  LOOP 

Initialize  the  peak  power  for  the  top-rear  antenna  to  40  dBm. 

LOOP  over  the  15  levels  of  the  back  antenna. 

A.  Calculate  these  levels  by  decreasing  the  peak  power  by  1  dB  per 
level  (from  40  to  26  dBm). 

B.  Calculate  the  total  radiated  power  of  the  back  antenna. 

END  LOOP 

Initialize  the  peak  power  for  the  bottom  antenna  to  36  dBm. 

LOOP  over  the  4  levels  of  the  bottom  antenna. 

A.  Calculate  these  levels  by  decreasing  the  peak  power  by  2  dB  per 
level  (from  36  to  30  dBm).. 

B.  Calculate  the  total  radiated  power  of  the  bottom  antenna. 

BID  LOOP 

Calculate  the  total  combined  radiated  power  of  all  the  antennas. 
Return. 


Called  by:  CIRCAS 
Subroutines  called:  None. 
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i.3.5  Subroutine:  INPUT 

PURPOSE:  Load  the  aircraft  deployment  array  and  the  interrogation  and 
suppression  rate  arrays,  and  determine  the  number  of  each  type  of 
aircraft. 

INPUTS:  Interrogation  and  suppression  rates  from  the  DABS/ ATCRBS/ AIMS  PPM, 

and  aircraft  characteristics  data  from  the  Los  Angeles  Basin  model  which 
includes  latitude  (degrees,  minutes,  seconds),  longitude  (degrees, 
minutes,  seconds),  altitude  (feet  mean  sea  level),  type  of  aircraft, 
longitudinal  velocity  (nautical  miles  per  second,  positive  in  the  westerly 
direction),  latitudinal  velocity  (nautical  miles  per  second,  positive  in 
the  northerly  direction),  and  vertical  velocity  (feet  per  second,  positive 
in  the  upward  direction). 

PROCEDURE:  This  subroutine  reads  interrogation  and  suppression  rates  and 
loads  the  rate  arrays.  It  also  reads  the  aircraft  deployment  file  and 
loads  the  deployment  array.  During  this  process,  the  total  number  of 
aircraft  is  counted,  as  well  as  the  number  of  each  of  the  three  types  of 
aircraft  (ATCRBS,  Mode  S,  and  TCAS  II  M) . 

OUTPUTS:  Interrogation  and  suppression  rates,  the  total  number  of  aircraft, 
the  number  of  each  type  of  aircraft  (ATCRBS,  MODE  S,  and  TCAS  II  M) ,  and 
the  aircraft  deployment  file  which  contains,  for  each  aircraft,  the 
latitude  (radians),  longitude  (radians),  altitude  (feet  mean  sea  level), 
type  (ATCRBS,  Mode  S,  or  TCAS  II  M) ,  westward  velocity  (nautical  miles  per 
second),  northward  velocity  (nautical  miles  per  second),  and  upward 
velocity  (feet  per  second). 
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VARIABLES  OF  INTEREST 

Description 

Number  of  aircraft 

Number  of  ATCRBS-equipped  aircraft 

Number  of  Mode  S-equipped  aircraft 

Number  of  TCAS  II  M-equipped  aircraft 

Interrogation  rates 

Suppression  rates 

Aircraft  deployment 

Percentage  of  deployment 


Variable  Name 

NAC 

IATCR 

IDAB 

ITCA 

IADJIN 

IADJSU 

TJFILE 

RATIO 


PROCESS: 

1  . 

2. 


B. 


C. 

D. 


E. 


Set  fraction  of  total  deployment  wanted  (RATIO). 

LOOP  over  all  aircraft  in  model. 

A.  Read  in  the  interrogation  and  suppression  rates  from 

DABS/ ATCRBS/ AIMS  PPM  and  store  them  in  appropriate  arrays. 

Read  in  the  transponder  deployment  from  the  deployment  file 
(usually  the  LA  Basin  Model). 

CALL  RANN:  Get  a  random  number. 

IF  random  number  greater  than  or  equal  to  RATIO,  THEM 
1.  Eliminate  this  aircraft  from  deployment. 

ELSE 

1.  CALL  FASCFD:  Convert  aircraft  type  from  ASCII  to  fieldata. 
CALL  CNVRT:  Convert  aircraft  type  from  fieldata  to  integer 
representation  (0  indicates  an  ATCRBS  transponder,  1 
indicates  Mode  S,  and  3  indicates  TCAS  II  M). 

Convert  latitude  and ' longitude  data  from  degrees,  minutes, 
and  seconds  to  radians. 

Determine  whether  the  latitudes  are  north  or  south,  and 
whether  the  longitudes  are  east  or  west. 

Load  the  position,  type,  and  velocity  in  the  aircraft 
characteristics  file. 

Count  the  number  of  each  type  of  aircraft. 

Store  the  interrogation  and  suppression  rates. 


2. 


3. 


4. 


5. 


6. 

7. 
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K.  END  IK 

3.  END  M»I> 

4.  Return. 


Called  by:  CIRCAS 

Subroutines  called:  ONVRT,  RANN  1 

System  routines  used:  FASCFD 
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3.3.6  Subroutine:  CHVRT 


PURPOSE:  To  determine  the  type  of  each  aircraft  and  convert  it  from 
fieldata  to  integer  form. 

INPUTS:  Aircraft  type  (in  fieldata  form). 

PROCEDURE:  The  aircraft  type  is  passed  to  this  subroutine  as  fieldata.  This 
data  is  evaluated  and  an  integer  value  that  indicates  whether  the  aircraft 
is  ATCRBS-,  Mode  S-,  or  TCAS  II  M-equipped  is  assigned  to  the  type 
variable.  This  value  is  then  passed  back  to  the  calling  routine. 

OUTPUTS:  Aircraft  type  (in  integer  form). 

VARIABLES  OF  INTEREST 
Description 
Aircraft  type 

PROCESS : 

1 .  CASE  the  six  most  significant  bits  of  aircraft  type  OF 

A.  9:  ITYPE  =  1  (Mode  S-equipped  aircraft) 

B.  7:25:  ITYPE  =  3  (TCAS  II  M-equipped  aircraft) 

C.  Others:  ITYPE  =  0  ( ATCRBS-equipped  aircraft) 

2.  END  CASE 

3.  Return. 

Called  by:  INPUT 
Subroutines  called:  None 


Variable  Name 
ITYPE 
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3.3.7  Subroutine:  RANK 

PURPOSE:  To  generate  a  random  number  between  zero  and  one. 

INPUTS:  None. 

PROCEDURE:  The  first  time  this  routine  is  performed,  a  large  number  is 

assigned  to  the  "seed,"  which  is  the  variable  that  is  used  to  produce  the 
random  numbers.  This  seed  is  multiplied  by  an  integer  which  is 
sufficiently  large  to  cause  an  overflow  of  bits  in  the  register  holding 
the  seed.  The  random  number  is  obtained  by  shifting  the  bits  back  down 
such  that  the  number  is  positive  and  no  greater  than  one. 

OUTPUTS:  A  random  number  having  a  value  between  zero  and  one. 

VARIABLES  OF  INTEREST 

Description  Variable  Name 

Random  number  between  zero  and  one  RAN 

IF  subroutine  has  not  been  run  before  THEM 

A. .  Set  seed  equal  to  ,a  large  integer  value. 

B.  Set  flag  that  indicates  subroutine  has  been  run. 

END  IF 

Multiply  seed  by  a  large  integer  value. 

Produce  random  number  by  dividing  the  absolute  value  of  the  seed  by 
(approximately)  2^'  ,  which  corresponds  to  the  largest  integer  value 
the  computer  is  capable  of  retaining. 

Return. 

Called  by:  INPUT,  TRANSP,  TSTART,  DISMOD,  TSQUIT 
Subroutines  called:  None 


PROCESS: 

1. 

2. 

3. 

4. 

5. 
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3.3.8  Subroutine :  TRANSP 

PURPOSE:  To  assign  transmit  power  and  receiver  sensitivity  characteristics 
for  each  transponder. 

INPUTS:  Number  of  aircraft  in  model;  nominal  Mode  S  power  and  sensitivity, 
and  standard  deviations  from  each;  and  nominal  TCAS  II  M  power  and 
sensitivity  levels  with  corresponding  standard  deviations. 

PROCEDURE:  A  normal  distribution  of  random  numbers  is  generated  and  used  to 
assign  the  transmitter  powers  and  receiver  sensitivities  of  each  Mode  S 
and  TCAS  II  M  aircraft  in  the  environment.  The  transmitter  power  and 
sensitivity  for  each  ATCRBS  aircraft  is  assigned  using  measured  data 
documented  in  Reference  9. 

OUTPUTS:  Transponder  characteristic  arrays:  Transmission  power  levels  for 
each  aircraft  and  receiver  sensitivity  for  each  aircraft. 

VARIABLES  OF  INTEREST 
Description 

Transmission  power  for  each  aircraft 
Sensitivities  for  each  aircraft 

PROCESS: 

1.  Set  starting  points  for  random  number  generator. 

2.  CALL  RANDN:  Set  up  array  of  pseudo-random  numbers  which  follow  a 
normal  distribution  and  are  used  to  predict  Mode  S  power  levels 
(nominal  value  is  27.0;  standard  deviation  is  1.5). 

3.  CALL  RANDN:  Set  up  array  of  pseudo-random  numbers  which  follow  a 
normal  distribution  and  are  used  to  predict  TCAS  II  M  power  levels 
(nominal  value  is  29.2;  standard  deviation  is  0.5). 

4.  LOOP  over  all  aircraft  in  model. 

A.  IF  ATCRBS-equipped  aircraft  THEN 

1 .  CALL  RANN:  Get  a  random  number. 


Variable  Name 

JTRANS 

JSENS 
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2.  Ilsus  probability  distribution  front  ATC-f>  to  determine 
transmission  power. 

3.  Store  transmission  power. 

B.  ELSE  IP  Mode  S-equipped  aircraft  THEN 

1 .  Calculate  transmission  power  of  Mode  S-equipped  aircraft 
using  number  from  normal  distribution. 

2.  Store  transmission  power. 

C.  ELSE  IF  TCAS  II  M-equipped  aircraft  THEN 

1 .  Calculate  transmission  power  using  number  from  normal 
distribution. 

2.  Store  the  transmission  power. 

D.  END  IF 

5.  END  LOOP 

6.  Set  starting  points  for  random  number  generator. 

7.  CALL  RANDN:  Set  up  array  of  psuedo- random  numbers  that  follow  a 
normal  distribution  and  are  used  to  predict  Mode  S  sensitivity 
levels. 

8.  CALL  RANDN:  Set  up  array  of  psuedo-random  numbers  that  follow  a 
normal  distribution  and  are  used  to  predict  TCAS  II  M  sensitivity 
levels. 

9.  LOOP  over  all  aircraft 

A.  IF  ATCRBS-equipped  aircraft  THEN 

1.  CALL  RANN:  Get  a  random  number. 

2.  Use  probability  distribution  from  ATC-9  to  determine 
sensitivity  level. 

3.  Store  the  sensitivity. 

B.  ELSE  IF  Mode  S-equipped  aircraft  THEN 

1.  Set  sensitivity  equal  to  number  from  normal  distribution. 

2.  Store  the  sensitivity. 

C.  ELSE  IF  TCAS  II  M-eguipped  aircraft  THEN 

1.  Set  sensitivity  equal  to  number  from  normal  distribution. 
Store  predicted  value. 
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1 0 .  END  LOOP 

11.  Return. 

Called  by:  CIRCAS 
Subroutines  called:  RANN 
System  routines  used,:  RANDN 
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TSTART 


PURPOSE:  To  set  up  a  pointer  array  that  locates  TCAS  II  M-equipped  aircraft 
in  the  aircraft  deployment  file,  and  to  set  the  squitter  phase  for  each 
TCAS  II  M-equipped  aircraft. 

INPUTS:  Aircraft  deployment  file. 

PROCEDURE:  A  loop  is  performed  dver  all  aircraft  to  determine  and  store  the 
number  of  TCAS  II  M-equipped  aircraft  and  the  pointer  arrays  used  to 
locate  the  TCAS  II  M  in  the  aircraft  file. 

OUTPUTS:  Number  of  TCAS  II  M-equipped  aircraft,  TCAS  II  M  pointer  file,  and 
start  time  of  each  TCAS  II  M  squitter  phase. 

VARIABLES  OF  INTEREST 

Description  Variable  Name 

Number  of  TCAS  II  M-equipped  aircraft  NUMTCA 

TCAS  II  M  pointer  array  1111 

Squitter  phase  start  time  TCST 

PROCESS: 

1 .  LOOP  over  all  aircraft. 

A.  IF  TCAS  II  M  THEN 

1.  Count  the  aircraft. 

2. '  Store  its  location  in  the  pointer  file. 

3.  CALL  RANN:  Get  a  random  number. 

4.  Calculate  squitter  phase  start  time  using  the  random 
number. 

B.  END  IF 

2.  END  LOOP 

3.  Return. 
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Cal  Led  by:  CIRCAS 
Subroutines  called: 


RANN 
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3.3.10  Subroutine :  LOAD 

PURPOSE:  At  times  0,  40,  80,  and  120  seconds:  to  update  all  aircraft 

positions;  to  compute  heading  of  each  TCAS  II  M  (at  time  =  0  only);  to 
update  Mode  S  track  file;  to  load  array  containing  power,  range,  and 
bearing  relationships  between  TCAS  II  M-equipped  aircraft  and  victim 
aircraft;  and  to  compute  the  air  traffic  densities  about  each  TCAS  II  M, 
as  well  as  the  average  density  about  all  TCAS  II  M-equipped  aircraft. 

* 

INPUTS:  Aircraft  deployment  file,  number  of  TCAS  II  M-equipped  aircraft. 

Mode  S  track  file,  TCAS  II  M  pointer  file,  simulation  time,  and  the  number 
of  aircraft. 

PROCEDURE:  First,  the  velocity  of  each  aircraft  is  used  to  update  its 

location  in  the  environment.  The  following  data  is  then  calculated  and 
stored  in  the  appropriate  arrays:  the  relative  position  of  other  aircraft 
to  each  TCAS  II  M,  the  aircraft  that  belong  in  the  track  file,  the  power 
received  by  each  TCAS  II  M  from  other  aircraft,  and  the  local  air  traffic 
densities  within  5,.  10,  and  30  nmi  of  each  TCAS  II  M. 

OUTPUTS:  Updated  aircraft  deployment  file,  updated  Mode  S  track  file,  updated 
TCAS  II  M  environmental  array,  and  air  traffic  density  about  each  TCAS  II 
M  within  10  nmi. 

VARIABLES  OF  INTEREST 

Description 

Aircraft  characteristics  file 

TCAS  II  M  headings 

Track  file 

TCAS  II  M  environmental  array 

Density  about  each  TCAS  II  M 


Variable  Name 

TJFILE 

THETA 

ITRACK 

ICASFI 


DENS 
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Number  of  TCAS  II  M-equipped  aircraft  NUMTCA 
Simulation  time  ITIME 

TCAS  II  M  pointer  file  1111 

Number  of  aircraft  NAC 


PROCESS : 
1 . 


2. 

3. 


B. 


C. 


IF  time  does  not  equal  zero  THEN 

A.  Calculate  the  new  latitude  by  adding  forty  seconds  times  the 
latitudinal  velocity  to  the  old  latitude  (x  =  X|-_4q  +  40VX). 
Calculate  the  new  longitude  by  adding  forty  seconds  times  the 
longitudinal  velocity  to  the  old  longitude  (y  =  yt-40  +  40  v«) • 
Calculate  the  new  altitude  by  adding  forty  seconds  times  the 
upward  velocity  to  the  old  altitude  (z  =  zt_40  +  40  vz). 

Store  these  new  positions. 

END  IF 

LOOP  over  all  TCAS  II  M-equipped  aircraft  * 

A.  Find  the  location  of  the  TCAS  II  M  in  the  general  aircraft 
characteristics  file. 


D. 


B.  Compute  the  heading  of  the  aircraft  by  finding  the  angle  formed 


2  2  V 

by  the  velocity  components  (theta  =  arcsin  (vv/(vx  +  vv  )  2 )  ), 


C. 


D. 


E. 

F. 

G. 


'  y'  '  'X  •  'y 

Adjust  the  angle  to  fit  into  the  coordinate  system  where  north 
is  at  zero  degrees,  west  is  at  90,  south  is  at  180,  and  east  is 
at  270. 

If  the  aircraft  is  heading  eastward,  subtract  the  adjusted  angle 
in  3.C  from  360°.  (The  calculation  in  3.C  assumes  westward 
motion.) 

Convert  this  angle  to  radians. 

Zero  out  local  aircraft  counters. 

Get  the  latitude  (radians),  longitude  (radians),  and  altitude 
(statute  miles)  of  the  TCAS  II  M-equipped  aircraft. 

LOOP  over  all  aircraft 

1.  Get  the  victim  aircraft's  latitude  (radians),  longitude 
(radians),  and  altitude  (miles). 
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2.  CAM.  HEAR:  Compute  the  horizontal  distance  (miles)  and 
angle  (radians)  between  TCAS  II  M  and  victim  aircraft. 

3.  Find  the  altitude  difference  (nmi)  between  the  TCAS  II  M 
and  victim  aircraft. 

4.  Find  the  slant  range  (straight-line  distance)  between  the 

2 

two  aircraft.  (  (horizontal  distance  +  vertical 
distance^)  ^2  ) 

5.  IF  victim  aircraft  is  TCAS  II  M-  or  Mode  S-equipped  THEN 

a.  IF  the  two  aircraft  are  within  50  nmi  of  each  other 
AND  their  difference  in  altitude  is  less  than 

9000  feet 

THEN 

1 .  Add  the  victim  aircraft  to  the  track  file  if  it 
is  not  already  there. 

b.  feLSE 

1 .  Remove  the  victim  aircraft  from  the  track  file  if 
it  is  there. 

C.  END  IF 

6.  BID  IF 

7.  Determine  tie  free  space  power  loss  (Power  loss  =  37.80  + 
201og-|Q(  1030)  +  201og-|Q  slant  range  +  3.0  -  60.0  )  where 
1030  is  the  interrogation  frequency  in  MHz,  the  slant  range 
is  in  nautical  miles,  3.0  is  the  transponder  cable  loss  in 
dB,  60.0  converts  from  kW  to  mW,  and  37.80  is  the  constant 
adjustment  factor  to  account  for  units  of  MHz  and  nmi). 

8.  Compute  aircraft  densities  around  each  TCAS  aircraft. 

9.  IF  the  two  aircraft  are  separated  by  at  least  50  nmi  THEN 
a.  Remove  the  victim  aircraft  from  the  TCAS  II  M 

environmental  array. 

10.  ELSE 

a.  Increment  appropriate  local  aircraft  counters  if  the 
victim  is  within  10  nmi  of  the  TCAS  II  M. 
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b.  Store  the  relative  rnncje,  bearinq,  and  power,  and  the 
type  of  victim  aircraft  in  the  TCAS  ir  M  environmental 
file. 

11.  END  IP 
I.  END  LOOP 

4.  END  LOOP 

5.  Return. 

Called  by:  CIRCAS 
Subroutines  called:  BEAR 
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3.3.11  Subroutine:  BKAK 


PURPOSE:  To  calculate  the  horizontal  distance  and  angle  between  the  TCAS  I 
or  TCAS  II  M  aircraft  of  interest  and  the  victim  aircraft  (see 
Figure  3-2). 

INPUTS:  TCAS-equipped  aircraft's  latitude  and  longitude  (in  radians),  the 
victim  aircraft's  latitude  and  longitude  (in  radians),  and  the  radius  of 
the  earth  (in  statute  miles). 

PROCEDURE:  The  two-dimensional  locations  (latitude  and  longitude)  of  two 
aircraft  are  used  to  calculate  the  horizontal  range  and  bearing  relative 
to  North  using  a  flat  earth  approximation. 

OUTPUTS:  The  horizontal  distance  between  the  two  aircraft  (in  statute  miles), 
and  the  bearing  angle  (measured  from  the  north,  in  radians)  between  the 
two  aircraft. 


VARIABLES  OF  INTEREST 

Description 

Radius  of  the  earth 

TCAS  latitude 

TCAS  longitude 

Victim  latitude 

Victim  longitude 

Distance  between  the  two  aircraft 


Variable  Name 

RADIUS 

TLAT 

TLON 

RLAT 

RLON 

DIST 


Bearing  angle  between  the  two  aircraft  BEARTX 


PROCESS : 

1 .  Calculate  the  difference  in  latitudes  between  the  two  aircraft. 

2.  Calculate  the  difference  in  longitudes  between  the  two  aircraft. 

3.  Calculate  the  longitude  scaling  factor  (the  cosine  of  the  average  of 
the  two  latitudes). 

Scale  the  difference  in  longitudes  (multiply  it  by  the  scaling  factor). 
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5.  Kind  the  straight  line  distance  between  the  two  aircraft  (the 
distance  is  the  square  root  of  the  sum  of  the  square  of  the 
difference  in  latitudes  plus  the'  square  of  the  scaled  difference  in 
longitudes). 

6.  IF  the  difference  in  longitudes  is  less  than  one  thousandth  of  a 
statute  mile,  THEN  ' 

A.  Set  the  difference  in  longitude  to  one  thousandth  of  a  statute 
mile  to  prevent  division  by  zero  in  the  bearing  calculation. 

7 .  END  IF 

8.  Calculate  the  angle  between  the  two  aircraft  (arctan  (-  difference  in 
latitudes  /  scaled  difference  in  longitudes)). 

9.  Adjust  the  axis  so  that  due  north  is  the  zero  point. 

10.  IF  the  angle  is  negative  THEN 

A.  Add  2tt  to  it  to  make  it  positive. 

1 1 .  END  IF 

12.  Return. 

Called  by:  LOAD,  TCAS1 
Subroutines  called:  None 
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3.3.12  Subroutine:  PRESET 

PURPOSE:  To  estimate  the  interference-limiting  state  of  each  TCAS  II  M- 
equipped  aircraft. 

INPUTS:  Number  of  each  type  of  aircraft,  track  file,  TCAS  II  M  environmental 
array,  aircraft  deployment  file,  and  transponder  characteristic  arrays. 

PROCEDURES:  At  the  start  of  the  simulation,  the  number  of  Mode  S  and 

TCAS  II  M-equipped  aircraft  within  35,  30,  and  7.16  nmi  of  each  TCAS  II  M 
aircraft  are  computed  and  used  to  estimate  the  number  of  aircraft  in  the 
squitter,  acquisition,  and  roll-call  states.  Empirical  estimates  on  the 
number  of  Mode  S  interrogations  are  made  and  used  to  preset  the  Mode  S 
sensitivity  and  power  levels  according  to  the  interference-limiting 
inequalities. 

OUTPUTS:  Adjusted  transmission  power  and  sensitivity  levels  for  each 
TCAS  II  M-equipped  aircraft. 

VARIABLES  OF  INTEREST 

Description 

Number  of: 

TCAS  II  M-equipped  aircraft 
Mode  S-equipped  aircraft 

Track  file 

TCAS  II  M  environmental  array. 

Aircraft  deployment  file 

Transmission  power  for  each  aircraft 

Adjusted  transmission  power  for 
TCAS  II  M 

Sensitivity  levels  for  each  aircraft 

Adjusted  sensitivities  for 
TCAS  II  M-equipped  aircraft 


Variable  Name 

NUMTCA,  ITCA 

IDAB 

ITRACK 

ICASFI 

TJFILE 

JTRANS 

AMSP 

JSENS 


SESIT 
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PROCESS : 

1.  LOOP  over  all  TCAS  II  M-equipped  aircraft. 

A.  Reset  squitter,  acquisition,  and  roll-call  target  counters. 

B.  Get  altitude  of  TCAS  II  M. 

C.  LOOP  over  all  500  tracks. 

1.  Get  aircraft  number. 

2.  If  aircraft  has  been  removed  from  file,  go  on  to  the  next 
‘‘track. 

3.  Get  aircraft  type. 

4.  If  ATCRBS-equipped  aircraft,  go  on  to  the  next  track. 

5.  Get  slant  range  (nmi)  between  TCAS  II  M  and  victim. 

6.  If  slant  range  is  over  35  nmi,  go  on  to  the  next  track. 

7.  Increment  the  stjuitter  count  by  one. 

8.  If  slant  range  is  over  30  nmi,  go  on  to  the  next  track. 

9.  Get  altitude  of  victim. 

10.  Find  the  difference  in  the  altitudes  of  the  two  aircraft. 

11.  If  the  difference  jin  the  altitudes  is  over  9000  feet,  go  on 
to  the  next  track. 

12.  If  the  slant  range  is  greater  than  7.16  nmi,  increment  the 
number  in  acquisition  range. 

13.  If  the  slant  range  is  less  than  or  equal  to  7.16  nmi, 
increment  the  number  in  roll-call  range. 

D.  END  LOOP 

E.  Multiply  the  squitter  count  by  the  ratio  of  TCAS  II  M-equipped 
aircraft  to  all  the  Mode  S-equipped  aircraft  (all  TCAS  II  M~ 
equipped  aircraft  are  Mode  S-equipped)  to  find  the  total  number 
of  squitter  targets. 

F.  DO  WHILE  inequality  (2-1)  is  not  satisfied  AND  no  more  than 
seven  adjustments  have  been  made.  (See  Reference  6.) 

1.  Make  power  and  sensitivity  adjustment. 

2.  Compute  interference-limiting  equation. 

G.  END  WHILE 

H.  Set  up  new  array  of  sensitivities  with  adjustment  calculated 
above. 
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I.  Set  up  new  array  of  transmission  power  with  above  adjustment. 

2.  END  LOOP 

3.  Return. 

Called  by:  CIRCAS 
Subroutines  called:  None. 
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3.3.13  Subroutine:  TCAS1 

PURPOSE:  To  determine  the  effects  of  deploying  TCAS  I-nquipped  (all  Mode  S- 
equipped  aircraft  are  assumed  to  be  TCAS  I-equipped)  aircraft  in  the 
environment. 

INPUTS:  Aircraft  deployment  file,  antenna  patterns,  and  sensitivity  levels. 

PROCEDURE:  For  all  aircraft  in  the  environment,  the  received  power  from  each 

TCAS  I  aircraft  is  calculated.  If  the  received  power  is  greater  than  the 
receiver  sensitivity,  the  number  of  TCAS  I  interrogations  received  is 
incremented  by  one. 

OUTPUTS:  The  expected  number  of  TCAS  I  interrogations  per  second  received 
at  each  aircraft. 


VARIABLES  OF  INTEREST 

Description 

Variable  Name 

Aircraft  deployment 

TJFILE 

Antenna  patterns: 

Top  (transmitting) 

ANTTOP 

Bottom  (transmitting) 

ANTBOT 

Bottom  (receiving) 

PASBOT 

Top  (receiving) 

PASTOP 

Sensitivity  levels 

JSENS 

Expected  number  of  TCAS  I 

ATCRAT 

interrogations  per  second 

ATCRAT 

PROCESS: 

1.  LOOP  over  all  aircraft,  selecting  only  TCAS  I-equipped  aircraft. 

A.  Get  latitude,  longitude,  and  altitude  of  TCAS  I. 

B.  LOOP  over  all  aircraft. 

1.  Get  latitude,  longitude,  and  altitude  of  victim  aircraft. 

2.  CALL  BEAR:  Get  horizontal  distance  between  two  aircraft. 
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3.  Find  tlie  difference  in  altitudes  (nmi). 

4.  Determine  the  anqle  between  the  aircraft. 

5.  Using  that  angle,  look  up  the  antenna  gains  for  top  and 
bottom  antennas. 

6.  Determine  total  gain  (add  TCAS  I  gain  to  victim  gain). 

7.  Calculate  free  space  power  loss. 

8.  Using  results  from  1.R.6  and  1.B.7,  find  received  power. 

9.  IF  received  power  is  above  sensitivity  level  of  victim 
(i.e.,  signal  is  detectable)  THEN 

a.  Count  one  interrogation  at  that  aircraft. 

10)  HID  IF 
C.  END  LOOP 

2.  END  LOOP 

3.  Return. 

Called  by:  CIRCAS 
Subroutines  called:  BEAR 
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3.3.14  Subroutine:  AHTGAN 

i 

PURPOSE:  To  store  elevation  antenna  patterns  lie tween  TCAS  II  M-oquippod 
aircraft  and  victim  aircraft. 

INPUTS:  Aircraft  deployment  file,  TCAS  II  M  environmental  file,  TCAS  II  M- 
equipped  pointer  file,  antenna  gains,  and  TCAS  II  M-equipped  aircraft 
identity. 

PROCEDURE:  The  antenna  coupling  between  each  TCAS  II  M  aircraft  and  all  other 
aircraft  is  computed  based  on  the  elevation  angle  between  the  aircraft. 

The  value  of  the  antenna  coupling  is  stored  in  the  aircraft  deployment 
file. 

OUTPUTS:  Aircraft  deployment  file. 


VARIABLES  OF  INTEREST 


Description 

Variable  Name 

Aircraft  deployment  file 

TJFILE 

TCAS  II  M  environmental  file 

ICASFI 

TCAS  II  M  pointer  file 

11 11 

Antenna  patterns: 

Top  (transmitting) 

ANTTOP 

Bottom  (receiving) 

PASBOT 

Bottom  (transmitting) 

ANTBOT 

Top  (receiving) 

PASTOP 

PROCESS: 

1.  Find  the  location  of  the  TCAS  II  M  in  the  aircraft  deployment- file. 

2.  Get  the  altitude  of  the  TCAS  II  M. 

3.  LOOP  over  all  aircraft. 

A.  Reset  the  gain  column  of  the  aircraft  deployment  file. 

B.  IF  the  aircraft  is  within  50  nmi  of  the  TCAS  II  M  THEN 
1.  Get  the  aircraft's  altitude. 
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2.  Get  the  slant  range  between  the  two. 

3.  Calculate  the  difference  in  their  altitudes. 

4.  Calculate  the  horizontal  distance  between  them. 

5.  Calculate  the  elevation  angle  between  the  two  aircraft. 

6.  Look  up  the  couplings  at  the  calculated  angles  and 
interpolate  to  find  a  more  exact  approximation. 

7.  Store  the  couplings. 

C.  END  IP 

4.  END  LOOP 

5.  Return. 

Called  by:  CIRCAS 
Subroutines  called:  None. 
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3.3.15  Subroutine:  FRUITA 

PURPOSE:  To  determine  the  fruit  received  at  the  TCAR  II  M-equipped 

aircraft.  To  compute  the  reply  efficiency  for  each  aircraft. 

INPUTS:  Interrogation  and  suppression  rates  for  each  aircraft,  TCAS  II  M 

environmental  array,  aircraft  deploymemt  file,  TCAS  II  M-equipped  aircraft 
identity,  transmission  power  and  sensitivities  for  each  aircraft. 

PROCEDURE:  For  all  aircraft  in  the  environment,  the  probability  of  reply  is 
calculated  from  the  dead  time  caused  by  all  incoming  interrogations  and 
suppressions.  The  ATCRBS  fruit  rate  due  to  a  given  aircraft  is  the 
product  of  the  received  ATCRBS  interrogation  rate  times  the  probability  of 
reply.  The  total  fruit  rate  at  each  TCAS  II  M  aircraft  is  found  by 
summing  the  fruit  rates  contribution  from  all  aircraft  within,  range  of  the 
TCAS  II  M  aircraft. 

i 

OUTPUTS:  Fruit  seen  by  TCAS  II,  M,  probability  of  reply  for  each  aircraft. 


VARIABLES  OF  INTEREST 
Description 

Interrogation  rate  for  each  aircraft 

Suppression  rate  for  each  aircraft 

TCAS  II  M  environmental  array 

Aircraft  deployment,  file 

Interrogation  and  suppression  totals 
from  previous  second 

Misaddressed  totals  from  previous 
second 

TCAS  II  M  identity 

Transmission  power  for  each  aircraft 

Sensitivity  level  for  each  aircraft 

Fruit  level  seen 'by  TCAS  II  M-equipped 
aircraft 

Probability  of  reply  for  each  aircraft 


Variable  Name 

IADJIN 

IADJSU 

ICASrl 

TJFILB 

STAT 

MIS 

II 

JTRANS 

JSENS 

FRUIT 

PREP 
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PROCESS : 

1.  IF  at  the  beginning  of  a  new  search  cycle  THEN 

A.  LOOP  over  all  aircraft, 

1.  Save  misaddressed  totals  from  last  second. 

2.  Save  interrogation  totals  from  last  second. 

3.  Save  suppression  totals  from  last  second, 
b.  END  LOOP 

2.  END  If 

3.  Locate  the  TCAS  II  M  aircraft  in  the  list  of  aircraft. 

4.  Zero  out  fruit  counter  for  the  TCAS  II  M. 

5.  LOOP  over  all  aircraft. 

A.  If  victim  aircraft  is  out  of  range  of  the  TCAS  II  M,  qo  on  to 
the  next  aircraft. 

B.  Find  the  type  of  the  victim  aircraft. 

C.  Get  number  of  interrogations  victim  received  during  the  previous 
second . 

D.  Get  suppressions  of  victim  from  previous  second. 

E.  IP  ATCRBS-equipped  aircraft  THEN 

1,  Set  suppression  time  to  35  microseconds. 

2.  Set  dead  time  due  to  interrogations  to  60  microseconds. 

F.  ELSE 

1,  Set  suppression  time  to  20  microseconds. 

2,  Set  interrogation  dead  time  to  24  microseconds. 

G.  END  IF 

H.  Calculate  the  total  dead  time  due  to  interrogations. 

I.  Calculate  the  total  dead  time  due  to  ground  ATC,  TCAS  II  M  . 
suppressions,  and  TCAS  II  M  misaddresses. 

J.  Sum  the  above  to  find  the  total  dead  time. 

K.  Estimate  and  store  the  probability  of  reply  for  that  aircraft. 

L.  Compute  antenna  coupling  between  victim  and  TCAS  II  M-equipped 
aircraft. 

M.  Get  propagation  loss  between  TCAS  II  M-equipped  aircraft  and 
victim  aircraft  from  TCAS  II  M  environmental  file. 
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N.  Add  this  power  to  the  transmission  power  of  the  victim  in  dBm 
plus  a  constant  adjustment  factor. 

O.  Make  further  adjustments  if  victim  aircraft  is  TCAS  Cl  M- 
equipped . 

P.  Add  this  power  to  the  gain  to  get  total  power. 

Q.  IF-  total  power  is  greater  than  the  TCAS  II  M-equipped  aircraft's 
sensitivity,  THHJ 

1.  Compute  and  store  the  fruit  received  at  TCAS  II  M-equipped 
aircraft  from  victim  aircraft. 

R.  END  IF 

6.  END  LOOP 

7.  Return. 

Called  by:  CIRCAS 
Subroutines  called:  None. 
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3.3.16  Subroutine:  PI SHOO 

PURPOSE:  To  schedule  Mode  S  discrete  interrogations. 

INPUTS:  Adjusted  TCAS  II  M  sensitivities,  TCAS  II  M  environmental  file,  TCAS 
II  M  identity,  aircraft  deployment  file,  fruit  level  seen  by  each  TCAS  II 
M,  adjusted  TCAS  II  M  power  levels,  misaddresses,  total  interrogations 
received  by  each  aircraft,  maximum  interrogation  failures  allowed  for  each 
scan  of  each  acquisition  trial,  aircraft  sensitivities.  Mode  S  track  file, 
TCAS  II  M  pointer  file,  simulation  time,  and  aircraft  transmission  powers. 

PROCEDURE:  Each  aircraft  in  the  track  file  of  the  TCAS  II  M  is  examined  and 
its  state  is  determined.  Using  statistical  methods,  this  subroutine 
schedules  discrete  Mode  S  interrogations  and  simulates  the  development  of 
target  track  states.  The  victim  aircraft  are  moved  from  state  to  state  as 
necessary  and  the  various  timers  are  adjusted  as  necessary. 

OUTPUTS:  Mode  S  replies  received  at  each  TCAS  II  M-equipped  aircraft,  Mode  S 
addresses  to  each  aircraft,  Mode  S  interrogation  counter,  number  of  victim 
aircraft  in  dormancy,  acquisition  counter,  dormancy  counter,  roll  call 
counter,  squitter  state  counter,  null  state  counter,  number  of  aircraft 
TCAS  II  M  has  of  interest  in  roll  call,  top  or  bottom  antenna  indicator, 
victim  aircraft  identity,  the  number  of  TCAS  II  M  transmissions,  and  the 
Mode  S  track  file. 

VARIABLES  OF  INTEREST 
Description 

Adjusted  TCAS  II  M  sensitivities 
Interrogation  rate  at  each  TCAS  II  M 
TCAS  II  M  environmental  file 
TCAS  II  M  identifier 
Type  of  each  aircraft 
Aircraft  deployment  file 


Variable  Name 

SESIT 

DRATE 

ICASFI 

II 

IJFILE 

TJFILE 
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Fruit  level  seen  by  each  TCAS  II  M  FRUIT 

Adjusted  TCAS  II  M  power  levels  AMSP 

Misaddresses  MIS 

Addresed  rate  to  each  aircraft  DINTRT 

Total  number  of  interrogations  UPRATE 

received 

Maximum  interrogation  rate  in  IROL 

roll  call 

Maximum  failed  interrogations/scan 

Trial  1  ITRIL1 

Trial  2  ITRIL2 

Trial  3  ITRIL3 

Trial  4  and  above  ITRIL4 

Mode  S  interrogation  rate  count  ACQSUM 

Number  of  aircraft  in  dormancy  state  DORSUM 
Acquisition  counter  MAQ 

Dormancy  counter  MDOR 

Roll  caLl  counter  MROL 

Squitter  state  counter  MSQ 

Null  state  counter  NUDL 

Number  of  aircraft  in  roll  call  ROLSUM 

Aircraft  sensitivities  JSENS 

Indicates  where  TCAS  II  M  transmitted  ITOB 
Victim  aircraft  K 

TCAS  II  M  transmissions  LPLUS 

Mode  S  track  file  ITRACK 

TCAS  II  M  pointer  file  1111 

Elapsed  time  in  simulation  I TIME 

Aircraft  transmission  powers  JTRANS 


PROCESS: 

1 .  IF  at  the  beginning  of  a  search  cycle  THEM 

A.  Zero  out  counters  for  roll  call,  dormancy,  acquisition,  and  null 
states,  as  well  as  the  interrogation,  suppression,  and 
misaddress  counter  arrays. 
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2.  BID  IF 

3.  Set  the  number  of  Mode  S  tracks  to  500. 

4.  Zero  out  the  interrogation  counter  at  the  TCAS  II  M. 

5.  Locate  TCAS  II  M  in  aircraft  characteristics  file. 

6.  Find  the  altitude  of  the  TCAS  II  M  in  statute  miles. 

7.  Initialize  the  number  of  interrogations  sent  by  TCAS  II  M  to  zero. 

8.  Initialize  the  number  of  other  TCAS  II  M-equipped  aircraft  detected 
by  the  given  TCAS  II  M  to  zero. 

9.  LOOP  over  the  500  tracks. 

A.  Skip  if  there  is  no  aircraft  in  this  track. 

B.  Get  identity  of  aircraft  in  track. 

C.  Determine  the  floating  point  and  integer  averages  of  the  number 
of  interrogations  received  by  the  victim  aircraft. 

D.  Find  the  difference  between  the  floating  point  and  integer 
averages. 

E.  CALL  RANN:  Get  a  random  number. 

F.  IF  the  random  number  is  greater  than  the  fractional  portion  of 
the  average  THEM 

1.  Add  one  to  the  integer  average. 

G.  END  IF 

H.  IF  the  integer  average  is  less  than  one  THEN 
1.  Set  it  equal  to  one. 

I.  END  IF 

J.  .Find  the  altitude  qf  the  victim  aircraft  in  statute  miles. 

K.  Find  the  absolute  difference  in  the  altitudes  of  the  two 
aircraft. 

L.  Get  the  slant  range  between  the  two  aircraft. 

M.  Find  the  victim  aircraft  type. 

N.  Skip  the  rest  of  this  loop  if  victim  is  ATCRBS-equipped . 

O.  Get  the  received  power  at  the  victim  aircraft  from  the  TCAS  II  M 
transmissions. 

P.  Find  the  interrogation  power  of  the  TCAS  II  M. 

Q.  Find  the  reply  power  of  the  victim. 
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R.  Determine  the  antenna  gains  of  the  TCAS  II  M-equipped  aircraft 

and  the  victim  aircraft  and  sum  them  to  find  the  total  gain.  ' 

S.  The  total  interrogation  power  is  the  quantity  found  in  9.P  plus 
the  total  gain, 

T.  The  total  reply  power  is  the  quantity  found  in  9.Q  plus  the 
total  gain. 

U.  IF  the  victim  aircraft  is  TCAS  II  M  equipped  AND  its  reply  power  - 

is  above  the  sensitivity  of  the  TCAS  II  M  THEN 

1 .  CALL  TSQUIT:  Count  the  TCAS  II  M-equipped  aircraft 

detected  by  squitter  and  set  the  squitter  start  time.  , 

V.  END  IF  ! 

W.  IF  the  fruit  seen  by  the  TCAS  II  M-equipped  aircraft  is  less 
than  100  THEN 

1.  Set  the  fruit  level  to  100. 

X.  END  IF 

Y.  Find  the  probability  of  clear  reception  of  the  victim  aircraft's 
reply  signal  by  the  TCAS  II  M-equipped  aircraft  using  a  curve¬ 
fitting  technique.  (The  probability  of  clear  reception  depends 

on  the  received  power  and  the  fruit  level  seen  by  the  TCAS  II  | 

M.  The  curves  were  supplied  by  Lincoln  Laboratory  and  are 
sinusoidal  in  nature  on  the  intervals  under  consideration.) 

Z.  Find  the  maximum  relative  velocity  of  the  two  aircraft. 

AA.  Find  the  Time  to  Endanger  (TE  =  range/maximum  relative  1 

velocity). 

BB.  Set  the  decode  indicator  to  zero  (false). 

CC.  Get  the  trial,  scan,  clock,  and  state  values  from  the  Mode  S 

track  file.  i 

DD.  IF  the  victim's  reply  power  is  below  the  TCAS  II  M-equipped 

_  ~i 

aircraft's  transponders  instantaneous  sensitivity  THEN 
1 .  Set  the  probability  of  decode  to  zero. 

EE.  END  IF 
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2. 

3. 

4. 


5. 

6. 


FF.  IF  the  victim's  reply  power,  is  below  the  TCAR  IT  M  sensitivity 
•OR  the  victim  is  currently  in  the  nulL  state  THEN 
1.  Set  the  number  of  squitters  received  equal  to  zero. 
Increment  the  null  state  counter  by  one. 

CALL  RANN:  Get  a  random  number. 

IP  the  random  number  is  less  than  the  probability  of  decode 
AND  the  aircraft  is  in  the  null  state  TH0I 
a.  Increment  the  number  of  received  squitters  by  one. 

END  IF 

IF  the  TCAS  II  M  received  one  squitter  from  the  victim  THEN 

a.  Place  the  aircraft  in  the  squitter  state. 

b.  Set  the  timer  to  16  seconds.  (This  is  the  time  during 
which  a  second  squitter  must  be  received  in  order  for 
the  aircraft  to  be  placed  in  a  higher  state). 

ELSE 

a.  Place  the  aircraft  in  the  null  state. 

Set  the  timer  to  zero. 

Set  the  scan  number  to  zero. 

Set  the  trial  to  zero. 

Set  the  acquisition  correlating  reply  indicator  equal 
to  zero. 

END  IF 

GG.  ELSE  IF  the  aircraft  is  in  the  squitter  state  THEN 
1.  Decrement  the  timer  by  one. 

Increment  the-  squitter'  state  counter  by  one. 

IF  the  sequence  of  scans  has  begun  THEN 
a.  IF  on  the  first  scan  THEN 

1 .  Set  the  clock  increment  to  20. 

ELSE  IF  on  the  second  scan  THEN 
1.  Set  the  clock  increment  to  16. 

ELSE  IF  on  the  third  scan  THEN 
1.  Set  the  clock  increment  to  8. 

ELSE  IF  on  the  fourth  scan  THEN 
1,  Set  the  clock  increment  to  4. 


b. 

c. 

d. 

e. 


8. 


2. 

3. 


b. 


d. 
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1.  Set  the  clock  increment  to  2. 


END  IP 


LOOP  over  the  average  number  of  TCAS  II  M 
interrogations . 


1.  CALL  RANN:  Get  a  random  number. 


2.  IP  the  random  number  is  less  than  the  probability 


of  decode  THEM 


Add  the  clock  increment  to  the  timer. 


b.  Set  the  decode  indicator  to  one  (true). 


3.  END  IP 


4.  IP  the  clock  has  reached  or  exceeded  zero  THEN 


Put  the  victim  aircraft  in  the  acquisition 


state. 


b.  Set  the  scan  indicator  to  zero. 


Proceed  to  the  next  trial. 


d.  IP  the  trial  number  is  greater  than  four 


1.  Set  the  trial  to  four. 


e.  END  IP 


f.  Zero  out  the  clock. 


Store  the  clock,  trial,  scan,  and  state 


values . 


h.  Return. 


5.  END  IP 


BTO  LOOP 


CALL  RANN:  Get  a  random  number. 


IP  the  random  number  is  less  than  the  probability  of 


clear  reply  THEN 


1.  Add  the  clock  increment  to  the  timer. 


END  IF 


IP  the  timer  has  reached  or  exceeded  zero  THEN 


1.  Put  the  victim  aircraft  in  the  acquisition  state. 


2.  Set  the  scan  indicator  to  zero. 


i 
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3.  Proceed  l.o  I  ho  next-  I  rial. 

4.  IF  the  trial  number  in  <jr«M ter  than  four  THEN 

a.  Set  the  trial  number  to  four. 

5.  END  IF 

6.  Zero  out  the  clock. 

m.  ELSE  IF  the  timer  is  less  than  or  equal  to  -40  THEN 

1.  Place  the  aircraft  in  the  null  state. 

2.  Set  the  trial  and  scan  indicators  to  zero. 

3.  Zero  out  the  clock.1 

4.  Set  the  acquisition  reply  indicator  to  zero. 

n.  END  IF 

4.  ELSE  IF  the  timer  is  greater  than  or  equal  to  -1  THEN 

a.  Set  the  number  of  squitters  received  to  zero. 

b.  LOOP  over  one  less  than  the  average  number  of  TCAS  II 
M  interrogations. 

1.  CALL  RANN:  Get  a  random  number. 

2.  IF  the  random  number  is  less  than  the  probability 
of  decode  THEN 

a.  Set  the  decode  indicator  to  one  (true), 

b.  Add  one  to  the  number  of  squitters  received. 

c.  END  LOOP 

3.  HID  IF 
C.  END  LOOP 

d.  CALL  RANN:  Get  a  random  number. 

e.  IF  the  random  number  is  less  than  the  probability  of 
clear  reply  THHI 

1.  Add  one  to  the  number  of  squitters  received. 

f.  END  IF 

g.  IF  the  number  of  squitters  received  is  not  equal  to 
zero  THHI 

1 .  IF  a  squitter  has  been  correctly  decoded  AND  the 
altitudes  of  the  two  aircraft  differ  by  more  than 
9000  feet  THEN 

a.  Set  the  clock  to  16  seconds. 
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2.  ELSE 

a.  Place  the  victim  aircraft  in  the  acquisition 
state. 

b.  Increment  the  trial  number  if  it  is  less 
than  four. 

c.  ■  Set  the  clock  to  zero. 

3.  END  IF 
h.  END  IF 

5.  ELSE 

a.  Set  the  clock  to  zero. 

b.  Place  the  aircraft  in  the  null  state. 

c.  Set  the  trial  and  scan  indicators  to  zero. 

d.  Set  the  acquisition  reply  indicator  to  zero. 

6.  END  IF 

HH.  •  ELSE  IF  the  victim  aircraft  is  in  the  acquisition  state  THEN 

1.  Increment  the  scan  indicator. 

2.  Increment  the  acquisition  counter. 

3.  IF  all  six  scans  of  the  trial  sequence  have  been  completed 

THEN 

a.  Place  the  victim  aircraft  in  the  squitter  state. 

b.  Set  the  scan  back  to  zero. 

c.  Set  the  clock  to  zero. 

d.  Set  the  acquisition  reply  indicator  to  zero. 

4.  ELSE 

a.  Look  up  the  number  of  failed  interrogations  allowed 
during  this  scan. 

b.  IF  the  number  of  failed  interrogations  is  not  equal  to 
zero  THEN 

1 .  '  Set  the  correlating  reply  counter  to  zero. 

2.  DO  WHILE  the  TCAS  II  M  has  received  less  than  two 
correlating  replies  AND  the  maximum  number  of 
failures  has  not  been  exceeded. 

a.  CALL  RANN:  Get  a  random  number  between  zero 
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h.  Increment  the  TCAS  II  M  transmission  counter 
by  one. 

c.  Determine  from  which  TCAS  II  M  antenna  the 
victim  aircraft  received  the  interrogation. 

d.  Add  one  to  the  Mode  S  interrogation  rate 
counter. 

e.  Increment  the  TCAS  II  M  interrogation  rate 
counter. 

f.  IP  the  interrogation  power  received  by  the 
victim  is  greater  than  or  equal  to  its 
sensitivity  THEN 

1.  Increment  the  Mode  S  address  counter. 

2.  IF  the  random  number  is  less  than  the  , 
probability  of  the  TCAS  II  M  receiving 
a  correlating  reply  THEN 

a.  Increment  the  correlating  reply 
counter. 

3.  END  IF 

4.  IF  the  TCAS  II  M  has  received  two 
correlating  replies  THEN 

a.  Set  the  scan  and  trial  indicators 
to  zero. 

b.  Reset  the  acquisition  reply 
indicator. 

c;  IF  the  time  to  endanger  is  greater 
than  43  seconds  THEN 

1 .  Place  the  victim  aircraft  in 
the  dormancy  state. 

2.  Set  the  clock  to  the  time  to 
endanger  minus  43  seconds. 

3.  Increment  the  dormancy 


counter 
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d .  ELSE 

1  Place  the  victim  aircraft  in 
the  roll  call  state. 

2.  Set  the  clock  to  zero. 

e.  BID  IF 
5.  END  IF 

g.  END  IF 

4.  END  NHILE 

5.  IF  the  TCAS  II  M-equipped  aircraft  received  one 
and  only  one  reply  during  the  scan  THEN 

a.  IF  this  was  the  final  scan  OR  a  reply  was 
received  during  a  previous  scan  THEN 

1 .  IF  the  time  to  endanger  is  greater  than 
43  seconds  THEN 

a.  Set  the  trial,  scan,  and  reply 
indicators  to  zero. 

b.  Place  the  victim  aircraft  in  the 
dormancy  state. 

c.  Set  the  clock  to  the  time  to 
endanger  minus  43  seconds. 

d.  Add  one  to  the  dormancy  counter. 

2.  ELSE  IF  a  reply  was  received  during  a 
previous  scan  (but  the  time  to  endanger 
is  within  43  seconds)  THEN 

a.  Place  the  aircraft  in  the  roll 
call  state. 

b.  Set  the  clock  to  zero. 

c.  Set  the  scan,  trial,  arid  reply 
indicators  to  zero. 

3.  END  IF 

b.  ELSE  (if  this  wasn't  the  final  scan  and  no 
other  replies  have  been  received) 

1.  Set  the  reply  indicator  to  one. 
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6.  EM)  I  F 
c.  END  IF 

5.  END  IF 

II.  ELSE  IF  the  victim  aircraft  is  in  the  roll  call  state  THEN 

1.  Increment  the  scan  indicator. 

2.  Increment  the  roll  call  counter. 

3.  IF  all  ten  roll  call  scans  have  been  completed  THEN 

a.  Place  the  victim  aircraft  in  the  squitter  state. 

b.  Set  the  clock  to  16  seconds. 

c.  Set  the  trial,  scan,  and  reply  indicators  to  zero. 

4.  ELSE 

a.  Find  the  maximum  number  of  interrogations  allowed. 

b.  DO  UNTIL  a  correlating  reply  is  received. 

1.  CALL  RANN:  Get  a  random  number. 

2.  Increment  the  TCAS  II  M  interrogation  counter. 

3.  Determine  the  TCAS  II  M  antenna  from  which  the 
victim  received  the  interrogation. 

4.  Add  one  to  the  Mode  S  interrogation  rate  counter. 

5.  Add  one  to  the  roll  call  interrogation  counter. 

6.  IF. the  interrogation  power  the  victim  aircrft 
received  is  above  its  sensitivity  level  THEN 

a.  Add  one  to  the  Mode  S  address  counter. 

b.  IF  the  random  number  is  below  the 
probability  of  a  correlating  reply  THEN 

1.  Set  the  scan  indicator  to  zero. 

2.  IF  the  time  to  endanger  is  greater  than 
40  seconds  THEN 

.  a.  Place  the  aircraft  in  dormancy. 

b.  Increment  the  dormancy  counter. 

c.  Set  the  clock  to  the  time  to 
endanger  minus  40  seconds. 

3.  BID  IF 

c.  BID  IF 

7.  END  IF 
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c.  END  UNTIL 
5 .  END  IP 

JJ.  ELSE  IF  the  victim  aircraft  is  in  the  dormancy  state  THEN 

1 .  Decrement  the  clock. 

2.  Increment  the  dormancy  counter. 

3.  IP  there  is  no  time  left  on  the  clock  THEN 

a.  Place  the  aircraft  in  the  squitter  state. 

b.  Set  the  clock  to  16  seconds. 

c.  Set  the  trial,  scan,  and  reply  indicators  to  zero. 

4.  END  IF 
KK.  END  IP 

LL.  Store  the  clock,  state,  scan,  trial,  and  reply  information. 
MM.  Total  the  number  of  TCAS  II  M  interrogations  made. 

10.  END  LOOP 

11.  Return. 


Called  by:  CIRCAS 
Subroutines  called: 


RANN,  TSQUIT 
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3.3.17  Subroutine:  TSQUIT 

PURPOSf):  To  count  the  number  of  TCAS  II  M-equipped  aircraft  detected  by 
squitters  and  to  set  the  squitter  phase. 

INPUTS:  TCAS  II  M  identity,  victim  aircraft  (also  TCAS  II  M-equipped) 

identity,  number  of  TCAS  II  M-equipped  aircraft,  TCAS  II  M  pointer  file, 
elapsed  time  in  simulation,  probability  of  reply  for  each  aircraft,  and 
the  TCAS  II  M  squitter  phase. 

PROCEDURE:  The  number  of  TCAS  II  M  aircraft  that  are  detected  by  squitter 
( NTADS )  at  each  TCAS  II  M  aircraft  is  incremented  by  one  when  the 
received  power  of  the  squitter  is  greater  than  the  receiver 
sensitivity,  the  probability  of  reception  of  a  pulse  is  sufficiently 
high,  and  the  TCAS  II  M  aircraft  is  not  currently  in  the  squitter 
file.  The  NTADS  is  decremented  if  the  TCAS  II  M  aircraft  is  in  the 
squitter  file  and  the  elapfeed  time  since  the  reception  of  the  last 
squitter  is  greater  than  20  seconds. 

OUTPUTS:  Number  of  TCAS  II  M-equipped  victim  aircraft  detected,  and  the 
squitter  phase  for  the  given  TCAS  II  M. 


VARIABLES  OF  INTEREST 


Description 


Variable  Name 


TCAS  II  M  identity  II 

Victim  aircraft  identity  K 

Number  of  TCAS  II  M  detected  NOW 

Number  of  TCAS  II  M-equipped  aircraft  NUMTCA 
TCAS  II  M  pointer  file  1111 

Elapsed  time  in  simulation  ITIME 
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Probability  of  reply  for  each  aircraft  PREP 
TCAS  II  M  squitter  phase  TCBT 

PROCESS : 


1 .  Get  the  identity  of  the  k-th  TCAS  II  M  aircraft. 

2.  initialize  time  of  last  squitter  if  necessary. 

3.  Get  time  of  last  received  squitter  from  squitter  file. 

4.  Compute  elapsed  time  since  last  received  squitter  (At). 

5.  IF  time=1  THEN 

A.  Add  to  the  squitter  all  TCAS  II  M  aircraft  that  are  detected  and 
have  a  probability  of  reply  greater  than  a  random  number. 

B.  Count  the  number  of  aircraft  detected  by  squitter. 

6.  ELSE  IF  At>20  and  k-th  TCAS  is  in  the  squitter  file,  THEN 

A.  Decrement  the  number  of  TCAS  detected  by  squitter  by  1 . 

B.  Delete  k-th  aircraft  from  the  squitter  file. 

7.  ELSE  IF  At  =  0,  10,  or  20  and’ the  k-th  TCAS  is  not  in  the  squitter 
files,  THBI 

A.  IF  the  received  power  is  greater  than  the  sensitivity,  THEN 

1.  Increment  the  number  of  TCAS  detected  by  squitter  by  1. 

2.  Add  k-th  TCAS  to  squitter  file. 

B.  END  IF 

8.  END  IF 

9.  RETURN 


Called  by:  DISMOD 
Subroutines  called:  RANN 
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3.3.18  Subroutine:  TCSHOT 


PURPOSE:  To  produce  time-averaged  values  of  the  emission  powers  and 

interrogation  rates  of  all  TCAS  II  M-equipped  aircraft  over  a  16-second 
smoothing  period. 


INPUTS:  Total  interrogations  transmitted  by  each  TCAS.  II  M-equipped  aircraft 
during  the  past  second,  TCAS  II  M-equipped  aircraft,  adjusted  TCAS  II  M 
transmission  power,  TCAS  II  M  pointer  file,  simulation  time,  and 
transmission  powers  of  all  aircraft. 


PROCEDURE:  For  each  TCAS  II  M  aircraft,,  the  Mode  S  interrogation  power  and 

interrrogation  rates  are  stored  for  the  previous  16  seconds  of  the 
simulation.  The  average  power  and  rates  are  calculated  using  the  stored 
values.  If  the  simulation  time  is  less  than  16  seconds,  the  averages  are 
computed  for  the  entire  simulation  time. 


OUTPUTS:  Smoothed  emission  power  and  interrogation  rate. 


VARIABLES  OF  INTEREST 


Description 


Variable  Name 


TCAS  II  M  identity  II 

Total  interrogations  transmitted  by  DRATE 

each  TCAS  II  M 

Adjusted  TCAS  II  M  transmission  power  AMSP 

Smoothed  emission  power  TIS 

Smoothed  interrogation  rate  TPS 

TCAS  II  M  pointer  file  1111 

Elapsed  time  in  simulation  ITIME 

Transmission  power  of  each  aircraft  JTRANS 

Values  of  all  TCAS  II  M  emission  JTA 

powers  arid  interrogation  rates  for 
the  past  16  seconds 
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PROCESS: 

1.  Get  location  of  TCAS  II  M-oq nipped  aircraft  of  interest  in  general 
aircraft  file. 

2.  IF  at  the  beginning  of  a  new  search  cycle  THEN 

A.  Determine  which  column  of  the  array  holding  all  values  of  the 
interrogation  rates  and  emission  powers  for  the  last  sixteen 
seconds  will  be  replaced  with  the  new  values. 

B.  IF  simulation  time  is  at  least  sixteen  seconds,  THEM 
1.  Set  smoothing  period  to  sixteen  seconds. 

C.  ELSE 

1.  Set  smoothing  period  to  simulation  time. 

D.  HTO  IF 

3.  HID  IF 

4.  Round  the  interrogation  rate  to  the  nearest  integer  and  store  the 
rounded  value  in  the  array  holding  the  values  from  the  last  sixteen 
seconds. 

5.  Compute  the  power  emitted  by  the  TCAS  II  M-equipped  aircraft  at  its 
last  transmission  and  store  this  as  an  integer  value  in  the  array 
holding  the  values  from  the  last  sixteen  seconds. 

6.  Zero  out  the  last  smoothed  values  for  this  particular  TCAS  II  M. 

7.  LOOP  over  smoothing  time  interval. 

A.  Sum  the  interrogation  rates  divided  by  the  length  of  the  time 
interval  to  produce  the  time-averaged  rate, 

B.  Sum  the  emission  powers  divided  by  the  length  of  the  time 
interval  to  produce  the  time-averaged  rate. 

8.  END  LOOP 

9.  Return. 


Called  by:  CIRCAS 
Subroutines  called:  None 
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3.3.19  Subroutine:  DISINT 


PURPOSE:  To  compute  Mode  S  addressed  and  misaddressed  rates  at  each  aircraft. 

INPUTS:  Mode  S  interrogations  transmitted  by  each  TCAS  II  M-equipped 

aircraft,  the  TCAS  II  M-equipped  aircraft  identity,  number  of  aircraft  in 
deployment,  number  of  ATCRBS-equipped  aircraft  in  deployment,  adjusted 
TCAS  II  M  emission  power,  transponder  characteristic  files,  array  that 
indicates  whether  the  TCAS  II  M  transmitted  on  the  top  or  bottom  antenna, 
the  number  of  TCAS  II  M  transmissions,  the  number  of  TCAS  II  M-equipped 
aircraft,  TCAS  II  M  pointer  file,  and  the  simulation  time. 

PROCEDURE:  For  all  aircraft  within  range  of  the  TCAS  II  M,  the  received  power 

from  each  TCAS  II  M  aircraft  is  calculated.  A  misaddress  is  counted  if 
the  received  power  is  above  the  victim  sensitivity,  and  an  addressed 
interrogation  is  counted  for  each  Mode  S-equipped  aircraft. 

OUTPUTS:  Mode  S  misaddresses  and  addresses  to  each  aircraft,  total 

addresses  each  aircraft  received  during  entire  simulation,  and  total 
addresses  each  aircraft  received  during  previous  search  cycle. 

VARIABLES  OF  INTEREST 

Description 

Total  interrogations  transmitted  by 
each  aircraft 

TCAS  II  M  identity 

Number  of  aircraft  in  deployment 

Number  of  ATCRBS-equipped  aircraft 

Adjusted  TCAS  II  M  emission  power 

Misaddresses  at  each  aircraft 

Mode  S  interrogations  transmitted 
during  previous  search  cycle 

Total  interrogations  each  aircraft 
received  during  entire  simulation 

Sensitivity  levels  of  all  aircraft 


Variable  Name 
CBRATE 

II 

NAC 

IATCR 

AMSP 

MIS 

DRATE 

UPRATE 

JSENS 
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Number  of  addressed  interrogations 
received 


ADRESS 


Indicator  of  whether  TCAS  II  M 
transmitted  on  its  top  or  bottom 
antenna 


I'POB 


Number  of  TCAS  II  M  transmissions 
Number  of  TCAS  II  M-equipped  aircraft 
TCAS  II  M  pointer  file 
Simulation  time 

Transmission  power  for  all  aircraft 


LPLUS 

NUMTCA 

mi 

ITIME 

JTRANS 


PROCESS: 

1  . 

2. 


B. 


C. 

D. 


2. 


Get  TCAS  II  M  identity. 

LOOP  over  all  aircraft. 

A.  Skip  all  aircraft  not  within  range  of  TCAS  II  M. 

Get  antenna  couplings  between  TCAS  II  M-equipped  and  victim 
aircraft. 

Get  victim  aircraft  type. 

LOOP  over  all  TCAS  II  M  transmissions 

1.  Determine  which  TCAS  II  M  antenna  transmitted  the 
interrogation. 

Determine  on  which  antenna  the  victim  aircraft  received  the 
TCAS  II  M  signal. 

Sum  the  gains  associated  with  the  two  antennas  above  to 
determine  the  total  gain. 

Get  the  free  space  propagation  loss  from  the  TCAS  II  M 
environmental  file. 

Get  the  TCAS  II  M  transmission  power  in  watts  and 
kilowatts. 

Calculate  the  total  power  loss  in  dB  and  add  it  to  the 
total  gain  to  determine  the  power  received  at  the  victim 
aircraft. 

If  this  power  is  greater  than  the  victim  sensitivity,  count 
a  misaddress. 

END  LOOP 


3. 


4. 


5. 


6. 


7. 


E. 


3-57 


'  *  •*  »  * 


DOT/FAA/PM-85/22 


Section  3 


3.  HID  LOOP 

4.  IF  at  end  of  search  cycle,  TURN 

A.  LOOP  over  all  aircraft. 

1)  IF  not  ATCRBS-equipped  aircraft  THEN 

a.  Increment  Mode  S  interrogation  counter. 

2.  END  IF 

3.  Add  new  Mode  S  addresses  to  all  past  addresses  to  get  total 
for  simulation. 

4.  Set  address  rate  equal  to  interrogation  counter. 

5.  Zero  out  interrogation  counter. 

B.  END  LOOP 

5.  END  IF 

6.  Return. 


Called  by:  CIRCAS 
Subroutines  called:  None 
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3.3.20  Subroutine:  ATHOO 

PURPOSE:  To  determine  the  TCAS  II  M  whisper-shout  interrogation  rate  at  each 
aircraft. 

INPUTS:  TCAS  II  M  top  antenna  sum  patterns,  TCAS  II  M  top  antenna 

difference  patterns,  TCAS  II  M  environmental  file,  antenna  couplings 
betv/een  TCAS  II  M  and  victim  aircraft,  TCAS  II  M  identity,  number  of 
aircraft  in  deployment,  sensitivity  level  of  all  aircraft,  TCAS  II  M 
pointer  file,  TCAS  II  M  interrogations  to  ATCRBS-equipped  aircraft, 

TCAS  II  M-produced  ATCRBS  suppressions,  TCAS  II  M  interrogations  to 
Mode  S,  TCAS  II  M-produced  Mode  S  suppressions,  simulation  time, 
transmission  power  levels  of  all  aircraft,  whisper-shout  truncation,  and 
elevation  antenna  patterns  for  all  five  TCAS  II  M  antennas. 

PROCEDURE:  For  each  aircraft  within  50  nmi  of  the  given  TCAS  II  M,  the 

received  power  of  each  whisper-shout  interrogation  and  suppression  is 
computed.  The  number  of  suppressions  received  at  the  victim  is 
incremented  whenever  the  received  power  is  greater  than  the  victim 
receiver  sensitivity,  and  the  number  of  interrogations  received  is 
incremented  when  the  received  power  ~  greater  than  the  sensitivity  and  a 
suppression  did  not  occur. 

OUTPUTS:  TCAS  II  M  interrogations  to  ATCRBS,  TCAS  II  M-produced  ATCRBS 
suppressions,  TCAS  II  M  interrogations  to  Mode  S,  TCAS  II  M-produced 
Mode  S  suppressions. 

VARIABLES  OF  INTEREST 

Description 

TCAS  II  M  top  antenna  sum  patterns 

TCAS  II  M  top  antenna  difference  patterns 

TCAS  II  M  environmental  file 

Antenna  couplings  beteen  TCAS  II  M- 
equipped  and  victim  aircraft 


Variable  Name 

AZPAT 

DIFPAT 

ICASFI 

IJFILE 
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TCAS  II  M  identity 

Number  of  aircraft  in  deployment 

Sensitivity  levels  of  all  aircraft 

TCAS  II  M  pointer  file 

TCAS  II  M  interrogations  to  ATCRBS 

TCAS  II  M-produced  ATCRBS  suppressions 

TCAS  II  M  interrogations  to  Mode  S 

TCAS  IT  M-produced  Mode  A  suppressions 

Simulation  time 

Transmission  power  of  all  aircraft 
Whisper-shout  truncation 
Truncation  sequence: 

Back  antenna 
Bottom  antenna 
Front  antenna 
Side  antennas 
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[T 

NAC 

dSKNS 

1111 

IATIN 

IATSU 

IDABN 

IDABS 

ITIME 

JTRANS 

ILWS 

IPRB 

IPRBO 

IPRF 

IPRS 


PROCESS : 

1 .  Get  location  of  TCAS  II  M. 

2.  LOOP  over  all  aircraft. 

A.  Skip  if  aircraft  is  out  of  TCAS  II  M  range. 

B.  Find  victim  aircraft  type. 

C.  Find  relative  bearing  {in  degrees)  between  two  aircraft. 

D.  Get  sensitivity  of  victim  aircraft. 

E.  Get  antenna  couplings. 

F.  Find  free  space  propagation  loss  between  the  two  aircraft. 

G.  Get  transmission  power  of  TCAS  II  M  in  watts. 

H.  Find  the  total  power  without  antenna  gains  (TCAS  II  M 
transmission  power  -  free  space  propagation  loss  -  cable 
losses) . 

I.  IP  the  received  signal  is  undetectable  (less  than  -84  dBm)  THEN 

1.  END  LOOP 

J.  END  IF 

K.  Find  gain  at  victim  antenna. 
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Get  integer  designating  90  degree  sector  between  TCAS  Cl  M  and 
•  victim. 

LOOP  over  five  TCAS  It  M  antennas. 

1.  IF  integer  designating  90  degree  sector  being  analyzed  is 
greater  than  36  (360  degrees)  TORN 

a.  Set  it  equal  to  36  (360  degrees). 

2.  ELSE  IF  integer  designating  90  degree  sector  being  analyzed 
is  less  than  zero  THEN 

a.  Add  -36  (360  degrees)  to  it  to  make  it  positive. 

3.  ELSE  IP  integer  designating  90  degree  sector  equals  zero 


a.  Set  it  equal  to  one  (10  degrees). 

4.  END  IF 

5.  Get  sum  antenna  pattern. 

6.  Get  difference  antenna  pattern. 

7.  Move  to  next  90-degree  sector  if  next  antenna  is  not  a 
front  antenna. 

8.  Set  drop  between  whisper-shout  emissions  to  3  dB. 

9.  LOOP  over  all  whisper-shout  levels. 

a.  IF  analyzing  bottom  antenna  THEN 

1 .  Get  whisper-shout  power  from  array  IPRBOT. 

b.  ELSE  IF  analyzing  top  front  antenna  THEN 

1 .  Get  whisper-shout  power  from  array  IPRF. 

c.  ELSE  IF  analyzing  right  side  antenna  THEN 

1.  Get  whisper-shout  power  from  array  IPRS. 

d.  ELSE  IF  analyzing  rear  antenna  THEN 

1 .  Get  whisper-shout  power  from  array  IPRB. 

e.  ELSE  (left  side  antenna) 

1.  Get  whisper-shout  power  from  array  IPRS. 

f.  END  IF 

g.  IF  the  amount  of  power  cut  in  interference  limiting 
exceeds  or  equals  the  whisper-shout  power  for  the 
given  antenna  THEN 


i 


END  LOOP 
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h .  KND  IP 

i.  Subtract  the  level  being  analyzed  from  the  total 
number  of  levels  to  get  the  total  attenuation. 

j.  Find  the  interrogation  power  by  subtracting  the 
attenuation  from  the  total  power. 

k.  Find  the  suppression  power  »y  subtracting  the  whisper- 
shout  power  drop  from  the  interrogation  power. 

l.  If  at  the  first  level  of  the  sequence,  set  the 
suppression  power  to  -100  dBm. 

m.  Decrement  the  whisper-shout  power  drop  by  one. 

n.  IP  the  whisper-shout  power  drop  is  less  than  one  dB 
THEN 

1 .  Set  the  whisper-shout  power  drop  equal  to  3  dB. 

o.  END  IF 

p.  IF  the  whisper-shout  power  drop  is  equal  to  1  dB  AND 
the  victim  aircraft  is  ATCRBS-equipped  THEN 

1 .  Set  the  whisper-shout  power  drop  to  3  dB. 

q.  END  IF 

r.  Find  the  total  antenna  gain  by  adding  the  appropriate 
TCAS  II  M  gain  to  the  victim  aircraft  gain. 

s.  Find  the  sum  interrogation  power  by  summing  the  TCAS 

II  M  sum  antenna  gain,  the  interrogation  power,  and 

the  total  antenna  gain. 

t.  Sum  the  interrogation  power,  the  TCAS  II  M  difference 
antenna  pattern,  and  the  total  antenna  gai.i  to  find 
the  interrogation  difference  power. 

u.  Rum  the  suppression  power,  the  sum  antenna  pattern, 

and  the  total  antenna  gain  to  find  the  suppression  sum 

power. 

v.  Zero  out  the  omnidirectional  antenna's  interrogation 
powe  r . 

w.  IF  analyzing  bottom  front  antenna  THEN 

1 .  Set  omnidirectional  power  equal  to  the  sum  of  the 
total  power  and  the  total  antenna  gain. 
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IP  at  first  level  of  whisper -shout  THEN 

.).  Subtract  10  HH  from  the  omnidirectional 
power. 

b.  IP  victim  aircraft  is  an  ATCRBS-equipped 
aircraft  THEN 

1.  Set  omnidirectional  suppression  power 
to  -110  dBm. 

c .  ELSE 

2.  IP  at  first  level  of  whisper-shout  THEN 

d.  END  IP 

ELSE  IP  at  second  whisper-shout  level  THEN 

a.  Subtract  17  dB  from  omnidirectional 
interrogation  power. 

b.  Set  omnidirectional  suppression  power  3  dB 
lower  than  omnidirectional  interrogation 
power. 

ELSE  IF  at  third  whisper-shout  level  THEN 

a.  Subtract  15  dB  from  omnidirectional 
interrogation  power. 

b.  Set  omnidirectional  suppression  power  3  dB 
lower  than  omnidirectional  interrogation 
power. 

ELSE  IF  at  last  whisper-shout  level  THEN 

a.  Subtract  13  dB  from  omnidirectional 
interrogation  power. 

b.  Set  omnidirectional  suppression  power  3  dB 
lower  than  omnidirectional  interrogation 
power. 

END  IP 

Set  difference  interrogation  power,  sum 

interrogation  power,  and  sum  suppression  power  to 

zero. 
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8.  IF  omnidirectional  suppression  power  is  greater 
than  or  equal  to  victim  sensitivity  THEN 

a.  Add  a  suppression  at  victim  in  Mode  S 

suppressions  array  if  victim  is  Mode  S-  or 
TCAS  II  M-equipped,  or  in  ATCRBS 
suppressions  array  if  victim  is  ATCRBS- 
equipped. 

9.  ELSE  IF  omnidirectional  interrogation  power  is 
greater  than  or  equal  to  victim  sensitivity  THEN 
a.  Add  an  interrogation  at  the  victim  aircraft 

to  the  ATCRBS  interrogations  array  or  the 
Mode  S/TCAS  II  M  interrogations  array, 
depending  on  whether  the  victim  is  Mode 
S/TCAS  II  M-equipped  or  ATCRBS-equipped. 

10.  END  IF 
X.  ELSE 

1 .  IF  sum  suppression  power  is  greater  than  or  equal 
to  victim  sensitivity  THEN 

a.  Add  a  suppresion  at  victim  in  Mode  S 

suppressions  array  if  victim  is  Mode  S-  or 
TCAS  II  M-equipped,  or  in  ATCRBS 
suppressions  array  if  victim  is  ATCRBS- 
equipped. 

2.  ELSE  IF  sum  interrogation  power  is  greater  than 
difference  interrogation  power  AND  sum 
interrogation  power  is  greater  than  or  equal  to 
victim  sensitivity  THEN 

a.  Add  an  interrogation  at  the  victim  aircraft 
to  the  ATCRBS  interrogations  array  or  the 
Mode  S/TCAS  II  M  interrogations  array, 
depending  on  whether  the  victim  is  Mode 
S/TCAS  II  M-equipped  or  ATCRBS-equipped. 

3.  END  IF 
y.  END  IF 


3-64 


DOT/FAA/PM-05/22 


Section  3 


10.  END  LOOP 
N.  END  LOOP 

3.  END  LOOP 

4.  Return. 


Called  by:  CIRCAS 
Subroutines  called:  None 
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3.3.21  Subroutine:  INTI.I 

PURPOSE:  To  adjust  TCAS  II  M  power  and  sensitivity  as  necessary  to  ensure 
that  the  three  interference  limiting  inequalities  are  satisfied. 

INPUTS:  Adjusted  sensitivity  levels  of  TCAS  II  M-equipped  aircraft,  TCAS  II  M 
identity,  adjusted  power  levels  of  TCAS  II  M,  sensitivity  levels  of  all 
aircraft,  number  of  TCAS  II  M-equipped  aircraft  detected,  smoothed 
emission  powers,  smoothed  interrogation  rates,  TCAS  II  M  pointer  file, 
elapsed  time,  and  transmission  power  of  all  aircraft. 

PROCEDURE:  Interference-limiting  adjustments  are  made  to  satisfy  the 

following  three  inequalities: 

I  P(i)  280 

E - <  -  (2-1 ) 

i=1  250  watts  1  +  NTA 

I 

E  M(i)  <  0.01  second  (2-2) 

i=1 

K  PA(k)  80 

E - <  -  (2-3) 

k=1  250  watts  1  +  NTA 

The  symbols  in  the  above  equations  were  described  in  Section  2.  Figure 
3-2  illustrates  the  logic  flow  of  the  interference-limiting  process. 

OUTPUTS:  Adjusted  sensitivity  level  of  TCAS  II  M,  adjusted  power  level  of  TCAS 
II  M,  16-second  freeze  counter,  inequality  (2-3)  satisfaction  indicator, 
total  ATCRBS  power  radiated,  peak  ATCRBS  power,  whisper-shout  truncation, 
and  number  of  TCAS  II  M-equipped  aircraft  detected. 
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VARIABLES  OF  INTEREST 
Description 

Adjusted  sensitivity  levels  of  TCAS  II  M- 
equipped  aircraft 

TCAS  II  M  identity 

Adjusted  power  levels  of  TCAS  II  M 

16-second  freeze  counter 

Whisper-shout  steps  allowed  for  each 

TCAS' II  M 

Peak  ATCRBS  power 

Total  ATCRBS  power  radiated 

Sensitivity  levels  of  all  aircraft 

Number  of  TCAS  II  M-requipped  aircraft 
detected 

Smoothed  emission  powers 
Smoothed  interrogation  rates 
TCAS  II  M  pointer  file 
Elapsed  time 

Transmission  power  of  all  aircraft 
Return  Point  Indicator 


Variable  Name 
SESIT 

II 

AMSP 

IRESET 

NWSL 

PMAX 

TPOW 

JSENS 

NOW 

TIS 

TPS 

1111 

ITIME 

JTRANS 

IRETRN 


PROCESS : 


1 . 
2. 


3. 

4. 


Get  identity  of  TCAS  II  M-equipped  aircraft. 

Decrement  16-second  freeze  counter. 

Compute  right-hand  side  of  Equations  1  and  3  ( RSEQ1 ,  RSEQ3). 
Eliminate  whisper-shout  (w-s)  steps  to  satisfy  Equation  3. 

A.  IF  the  sum  of  the  power  over  all  whisper-shout  steps  is  greater 
than  RSEQ3 ,  THEN 

1 .  IF  number  of  whisper-shout  level  (NWSL)  =  0,  THEN 

a.  Set  return  indicator  to  0. 

b.  Return. 

END  IF 

Remove  1  w-s  level. 

Go  to  step  5. 


2. 

3. 

4. 


3-68 


DOT/FAA/PM-85/22 


Section  3 


5. 

6. 


7. 


B. 

C. 

D. 

E. 

F. 


b. 


B.  END  IF 

Check  16-second  freeze  clock. 

IF  freeze  clock  >  0,  THEN 

1 .  Set  return  indicator  to  1 

2 .  Return . 

ELSE 

A.  Check  Equations  1  and  2. 

Compute  total  Mode  S  power  transmitted. 

Compute  total  w-s  power  transmitted. 

Compute  total  Mode  S  +  w-s  power. 

Compute  total  self-suppression  deadtime. 

IF  Equation  1  and  Equation  2  are  satisfied, 

1.  IF  Mode  S  range  is  greater  than  ATCRBS  range,  THEN 
a.  Check  to  see  if  all  w-s  levels  are  used. 

Compute  total  w-s  power  radiated  with  1  additional 
w-s  level. 

IF  Equation  3  is  satisfied  with,  new  total  w-s  power, 

THEN 

1 .  IF  Equations  1  and  2  are  satisfied  with  one 
additional  w-s  step,  THEN 

a.  Add  1  w-s  level. 

b.  Go  to  Step  7. 

ELSE 

a.  Set  return  indicator  to  3. 

b.  Return. 

END  IF 
END  IF 
END  IF 

IF  Instantaneous  Mode  S  power  is  less  than  maximum  Mode  S 
power  and  instantaneous  sensitivity  is  greater  than  minimum 
sensitivity,  THB1 

a.  increase  Mode  S  power  by  1  dB. 

b.  Decrease  sensitivity  by  1  dB. 

c.  Reset  freeze  counter. 


2. 


3. 


d. 


2. 

3. 
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o.  Set  return  indicator  to  4. 
e.  Return. 

4.  ELSE 

a.  Set  return  indicator  to  5. 

b.  Return. 

5.  END  IF 

G.  ELSE 

1.  IF  Mode  S  range  is  greater  than  ATCRBS  range,  THEN 

a.  Decrease  Mode  S  power  by  1  dB. 

b.  Increase  sensitivity  by  1  dB. 

c.  Reset  freeze  counter. 

d.  Set  return  indicator  to  6. 

e.  Return. 

2.  ELSE 

a.  Delete  1  w-s  level 

b.  Go  to  step  7. 

3.  END  IF 

H.  END  IF 

8.  END  IF 

9.  Return 

10.  End 

Called  by:  CIRCAS 
Functions  called:  HIATPW 
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3.3.22  FUNCTION  HIATPW 

PURPOSE:  This  function  determines  the  highest  whisper-shout  power  sent  when  a 
total  of  N  whisper-shout  steps  are  transmitted. 

INPUTS:  Number  of  whisper-shout  levels  used. 

PROCEDURE:  The  highest  power  transmitted  over  the  top  antenna  in  the  front 
lobe  is  determined  using  Figure  2-1  and  the  number  of  whisper-shout  steps 
transmitted  by  a  given  TCAS  II  M  aircraft. 

OUTPUT:  Highest  whisper-shout  power  transmitted. 


VARIABLES  OF  INTEREST 
Description 

Highest  transmitted  power 

Number  of  whisper-shout  levels  sent 


Variable  Name 

~  i 

HIATPW 

NWSL 


PROCESS:  , 

1 .  Use  of  number  of  whisper-shout  levels  sent  to  find  the  highest 
priority  level  sent. 

2.  IF  the  highest  priority  sent  _>  79,  THE*1 

Find  the  highest  power  level  sent  on  the  top  antenna. 

3.  ELSE 

Find  the  highest  power  level  (in  dBm)  sent  on  the  bottom 
antenna. 


4.  END  IF 

5.  Convert  the  power  level  to  watts. 

6.  Return. 


Called  by:  INTLI 
Subroutines  called:  None. 
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3.3.23  .Subroutine:  STATS 


PURPOSE:  To  write  out  the  TCAS  II  M  parameters  of  interest  after  each  second. 

I  i.  PUTS:  All  common  variables  of  interest. 

PROCEDURE:  At  the  end  of  each  second,  the  TCAS  II  M  variables  of  interest  are 
written  for  each  TCAS  II  M  aircraft.  The  mean  values  of  the  variables  of 
interest  are  computed  by  averaging  over  all  TCAS  II  M  aircraft  in  the 
environment. 

OUTPUT:  TCAS  II  M  statistics. 

VARIABLES  OF  INTEREST 

Description  Variable  Name 

Aircraft  ID  I1 1 1 


TCAS  II  M  ID  II 

Probability  of  Reply  PREP 

Number  of  fruit  received  FRUIT 

•  Number  of  TCAS  II  M  detected  by  squitter  NOW 

Mode  S  interrogation  rate  DRATE 

Number  of  Mode  S  acquisition  interrogators  ACQSUM 

Number  of  Mode  S  roll-call  interrogators  ROLSUM 

Number  of  Mode  S  misaddresses  received  MIS 

Number  of  aircraft  in  the  track  file  NACTRIC 

Number  of  aircraft  in  the  null  state  NULL 

Number  of  aircraft  in  the  squitter  state  MSQ 

Number  of  aircraft  in  the  acquisition 

state  MAQ 

Number  of  aircraft  in  the  roll-call  state  MROL 

Number  of  aircraft  in  the  dormant  state  MDOR 

Number  of  whisper-shout  steps  sent  NWSL 

Total  Mode  S  and  ATCRBS  power  sent  TPOW 

Maximum  Mode  S  power  transmitted  MAXMSP 
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Mode  S  freeze  counter  IRESET 

Interference  limiting  condition  indicator  IRRTRN 

PROCESS: 

1.  IF  First  TCAS  II  M  aircraft  in  file,  THEN 

a.  Write  heading; 

b.  Clear  array  containing  averaged  values. 

2.  END  IF 

3.  Convert  specific  real-valued  variables  to  integer  format. 

4.  Write  out  variables  of  interest. 

5.  Compute  the  sum  of  each  variable  of  interest  over  all  TCAS  II  M 
aircraft. 

6.  IF  Last  TCAS  II  M  aircraft  in  file,  THEN 

a.  Compute  the  average  for  the  variables  of  interest. 

b.  Write  the  average  value  for  the  variables  of  interest. 

7.  HID  IF 

8.  Return. 

Called  By:  CIRCAS 
Subroutines  called:  None. 
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3.3.24  Subroutine:  FILES 

PURPOSE:  To  create  an  output  disk  file  to  be  used  as  input  data  to  the  -■ 

DABS/ ATCRBS/ AIMS  PPM  which  will  determine  net  effects  of  deploying  TCAS 
systems  in  the  environment. 

’INPUTS:  Total  interrogations  received  by  each  TCAS  II  M,  number  of  aircraft,  _  ‘ 

number  of  whisper-shout  levels  each  TCAS  II  M-equipped  aircraft  uses.  Mode 
S  addresses  and  misaddresses,  ATCRBS  and  Mode  S  interrogations  and  j 

suppressions  due  to  TCAS  II  M,  and  TCAS  I  interrogations  at  each  aircraft. 


PROCEDURE:  In  a  loop  over  all  TCAS  II  M  aircraft,  the  total, amount  of  mutual  * 

suppression  time  (due  to  receiver  turn-off  during  interrogations)  is  j 

calculated.  The  following  quantities  for  each  aircraft  are  output  to  a  ) 

disk  file:  Mode  S  addresses  and  misaddresses.  Mode  S  and  ATCRBS 

interrogations  and- 'suppressions  due  to  TCAS  II  M  emissions,  TCAS  I  4 

interrogations,  and  TCAS  II  M  mutual  suppression  time. 

OUTPUTS:  Mode  S  addresses  and  misaddresses,  ATCRBS  and  Mode  S  interrogations 
and  suppressions  due  to  TCAS  II  M  emissions,  TCAS  I  interrogations,  and 
total  amount  of  TCAS  II  M  suppression  time. 


VARIABLES  OF  INTEREST 
Description 

Total  TCAS  II  M  suppression 
Mode  S  misaddresses 
Mode  S  addresses 
ATCRBS  interrogations 
ATCRBS  suppressions 
Mode  S  interrogations 
Mode  S  suppressions 
TCAS  I  interrogations 


Variable  Name 
time  AMTSUP 

MIS 

ADRESS 

IATIN 

IATSU 

IDABN 

IDABS 


,1 


i 


ATCRAT 
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Total  interrogations  received  by  TCAS  II  M  DRATR 
Number  of  aircraft  NAC 

Number  of  whisper-shout  levels  used  by  NWSL 

each  TCAS  II  M 

PROCESS: 

1.  Set  TCAS  II  M  counter  to  zero. 

2.  LOOP  over  all  aircraft. 

A.  IF  TCAS  II  M-equipped  aircraft  TOEN 

1.  Increment  TCAS  II  M  counter. 

2.  Calculate  total  TCAS  II  M  suppression  time  in  microseconds  using 
above  counter  to  locate  correct  TCAS  II  M  in  arrays 
(Suppression  time  =  60.0  times  the  number  of  whisper-shout  steps 
TCAS  II  M  is  using  +  100.0  times  total  interrogations  received 
by  TCAS  II  M  transponder). 

B.  ELSE 

1.  Set  total  TCAS  II  M  suppression  time  to  zero. 

C.  BID  IF 

D.  Write  the  following  quantities  to  output  file:  Mode  S  addresses  arid 
misaddresses.  Mode  S  and  ATCRBS  interrogations  and  suppressions  due 
to  TCAS  II  M  emissions,  TCAS  I  interrogations,  and  total  TCAS  II  M 
suppression  time. 

3.  END  LOOP 

4.  Return. 

Called  by:  CIRCAS 
Subroutines  called:  None. 
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The  following  data  dictionary  describes  each  common  variable  for 
understanding  the  code. 
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NUAIR  is  the  number  of  aircraft  in  the  deployment. 
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APPEND  rx  B 
TO  AS  SUM  I.IS'l'ING 

The  following  is  a  compiled  ASCII  FORTRAN  listing  of  the  TCAS  SEM.  The 
program  segments  appear  in  alphabetical  order. 
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bftn/S  e 
FTN  11R1 


ANTGAN  **» 


ANTGAN/ ANTGAN 

02/27/45-16:35(16/) 


1. 

SU6R0UT INE  ANTGAN 

C  • 

3. 

1 

C 

THE  PURPOSE  OF  THIS  SUBROUTINE  IS 

TO  STORF  ELEVATION  ANTENNA  PATTERNS 

4. 

c 

BETWEEN  TCAS  ANO  VICTIM  AIRCRAFT. 

6. 

c 

7. 

c 

COMMON  BLOCKS  /  VARIABLES 

4. 

c 

INPUTS  OUTPUTS 

DESCRIPTIONS 

10. 

c 

c 

ANTO  / 

TCAS  II  M  RECEIVING  ANTENNA  PATTERNS: 

11. 

c 

/  PAS80T 

BOTTOM  ANTENNA 

12. 

c 

/  PASTOP 

TOP  ANTENNA 

13. 

c 

ANTT  / 

TCAS  IIM  TRANSMITTING  ANTENNA  PATTERNS: 

14. 

c 

/  ANTBOT 

BOTTOM  ANTENNA 

15. 

c 

/  ANTTOP 

TOP  ANTENNA  . 

16. 

c 

CAS  /  ICASFI 

TCAS  II  M  ENVIRONMENTAL  FILE 

17. 

c 

/  II 

TCAS  II  M  IDENTITY 

18. 

c 

IJFILE 

ANTENNA  PATTERNS  BETWEEN  TCAS  II  M/VTN 

19. 

c 

.  NAC 

NUMBER  OF  AIRCRAFT  IN  DEPLOYMENT 

20. 

c 

TCOATA  /  1111 

TCAS  II  M  POINTER  FILE 

21. 

c 

22. 

INCLUOE  RESTART/LIST 

1.1 

PARAMETER  (NUAIR  *  328) 

2.1 

c 

3.1 

c 

THE  LOGICAL  VARIABLE  PRINT/  WHEN  FALSE/  WILL  SUPPRESS  ALL  WRITE 

4.1 

c 

STATEMENTS  IN  THE  MODEL. 

, 

5.1 

c 

6.1 

LOGICAL  PRINT 

7.1 

DIMENSION  TJFILEtNU AIR/8)/  IJFILE(NUAIR/8)/  ICASF I (83/NUAIR/ 1 )  ' 

8.1 

COMMON  /TCOATA/  1111(83)/  0ENSC83) 

# 

9.1 

?  I AT  INI NUAIR) /  IATSU( NUAIR)/  I0A8N (NUAIR )/  I0A8S (NUAIR) 

10.1 

EQUIVALENCE  (TJFILE/IJFXLE) 

11.1 

COMMON  /CAS/  ICASFI/  TJFILE/  NAC/ 

11/  PRINT 

23. 

COMHON/ANTT/ANTTOPd  9)/ANT60T(19) 

24. 

COMMON/ ANT0/PAST0P(19)/PASB0T.(1 9) 

25. 

PARAMETER  (R20  ■  57.298) 

3  CONVERTS  ANGLES  FROM  RAOIANS 

26. 

c 

TO  DEGREES 

27. 

DEFINE  FLOII/J/K)  «  BITS(K/I+1/ J> 

28. 

c 

29. 

c 

HAVE  A  TCAS  AIRCRAFT. 

30. 

c 

31. 

IH  *  1111(11) 

32. 

ALT1  *  TJFILE (IH/3)/6076.0 

S  ALTITUDE  OF  TCAS  A/C  IN 

33. 

c 

NAUTICAL  MILES 

34. 

00  201  M1/NAC 

a  COMPUTE  ANTENNA  COUPLING 

35. 

c 

(ELEVATION  PATTERNS) 

36. 

IF(IH.EQ.K)GO  TO  201 

a  OON’T  00  COUPLING  CALCULATIONS 

37. 

c 

OF  A/C  WITH  ITSFLF 

38. 

IF(ICASFI(II/K/1).EQ.O)GO  TO  201  3  SKIP  IF  A/C  OUT  OF  RANGE 

39. 

ALT2  *  TJFILE(K/3)/6076.0 

8  ALTITUDE  OF  VICTIM  A/C 

40. 

c 

IN  NAUTICAL  MILES  ' 

41. 

C  *  FLO(00/09/ICASFI(II/K/1))/10.S  SLANT  RANGE  BETWEEN  TCAS  IIM  t  VICTM 

42. 

a  =  (ALT1  -ALT2) 

a  DIFFERENCE  IN  ALTITUCES  IN 

43. 

c 

NAUTICAL  MILES 

44. 

OUT  =  SORT (C»C  -  3*8) 

?  H0RI2  0NT AL  OISTANCE  BETWEEN  A/C 

45. 

ARG  =  d/OIST 

46. 

THHT  =  (ATAN(ARG) >*P20 

1  VERTICAL  ANGLE  (OEGREES) 
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***  ANTGAN  *** 


47. 

48. 

49. 

50. 

51. 
57. 
55. 

54. 

55. 

56. 

57. 

58. 

59. 

60. 
61. 
62. 
65. 

64. 

65. 

66. 

67. 

68. 

69i 

70. 

71. 


i  _  ’ 

C  SEPARATING  A/C 

>  THETA11  *  ABS((THET+90.)/10.) 

ITH1  *  THETA1  ♦  1 

THETA2  «  ABS ( (THET  -  90.1/10.) 

ITH2  *  THETA2  ♦  1  8  COMPUTE  ANTENNA  COUPLINGS. 

GN1  ■  ANTTOPtITMl)  ♦  ((THETA1M)  8  TCAS  IIM  TOP  ANTENNA  GAIN 
T  -  FL0AT<ITH1))*(ANTT0P(ITH141)  -  ANTTOP(ITHI)) 

GN2  «  PAS80T ( ITH2)  ♦  ( (TMETA2A1 )  8  VICTIM  BOTTOM  ANTENNA  GAIN 
T  -  FLOAT(ITH2)>*<PASBOT(ITH2+1)  -  PASBOT (ITH2) ) 

GN5  »  ANTBOT(ITHI)  ♦  UTHETAU1)  B  TCAS  IIM  BOTTOM  ANTENNA  GAIN 
?  “  FLOAT! ITH1 J )*{ANTBOT ( ITH1 f-1  >  -  ANTBOT CITM1)  > 

GN4  «  PAST0POTH2  J  ♦  <(THETA241>  8  VICTIM  TOP, ANTENNA  GAIN 
?  -  FLOAT! ITH2))*(PASTOP(ITM2*1)  -  PASTOPI ITH2) ) 

P  ■  FLO<17,10,ICASFIUI,K,1))  8  TCAS  II*  POWER 
C 

C  STORE  COUTPLINCS  AS  INTEGER  VALUES.  THE  SYSTEM  FUNCTION,  IFIX,  6EL0U, 
C  CONVERTS  THE  FLOATING  POINT  NUMBERS  TO:  INTEGERS  FOR  STORAGE. 

C 

FL0<00,09,IJFILE(K,8>)  •  IFIXCGN1*10.> 

FL0<09,09,IJFILE(K,8>>  *  IFIX(GN2*10.) 

FLD(1S,09,IJFILE(K,8))**  IFIX(GN5*10.) 

FLO. ( 27,09,1 JFILE(K,D)  >  1FIX(GN4*1Q.) 

201  CONTINUE 
RETURN 
ENO 
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•  a*  ASPINT  •»»  '  -  . 

AFTN/S  A. ASPINT/A. ASPINT 

FTN  11R11RIA  05/30/83-13:14(4.) 

1.  SUBROUTINE  ASPINT  3  ATCRBS  SUN  POWER  INITIALIZE 

2.  » 

3.  *  THIS  SUBROUTINE  INITIALIZE  THE  ARRAY  CONTAINING  THE  TOTAL  RAOIATE  POWER 

A.  *  FROM  N  W-S  POWER  LEVELS  IN  WATTS 

5.  •  * 

6.  a  »..x*...*i>a. ***•**.*•  INPUTS  /  OUTPUTS  »***♦**«**»•**•*•*•**** 

7.  * 

8.  *  COMMON  BLOCKS’  /  VARIABLES 

9.  •  INPUTS  OUTPUTS  DESCRIPTION 

10.  * 

11.  »  ILNS  /  ATSUMP  TOTAL  RAOIATEO  FROM  N  W-S  LEVELS 

12;  »-  ■ 

IS.  INCLUDE  ILMS. 

1*.  •»- 

15.  DEFINE  SUM(N)  a  (ONEOBAAN  -  1)/(ONEOB  -1> 

16.  DEFINE  SUHB(N)  *  (TWOOB**N  -  1)/(TW00B  -|> 

17.  * 

IB.  ONEDB  *  10. **(.1)  a  OEFINE  1  OB 

19.  twoob ■-*  io. **(.2)  a  oefine  2  db 

20.  PT0PL0  »  10.»*U  26.  -30. >710.)-  a  26  DBM  -30  OB  TO  GET  WATTS 

21.  PBOTLO  «  10.a*<{  30.  -30.)/10.)  a  30  OBM  -30  0«  TO  GET  WATTS 

22.  ATSUMP(O)  A  0. 

21.  » 

2A.  *  LOOP  OVER  ALL  8 3 -W-S -LEVELS: 

25.  * 

26.  00  10.:IPRI«1/83 

27.  * 

28.  *  DETERMINE  I  OF  W-S  LEVELS  SENT  ON  THE  TOP  (FRONT.  2  SIDES.  ANO  BACK) 

29. -  *  ANO  BOTTOM  ANTENNAS 

30.  • 


1 

31. 

IF(  IPRI  .L 

E.  63)  THEN 

2 

32. 

NFRNT  « 

24  -  (IPRI-.*  2)74 

2 

S3. 

NRSIUE  « 

20  -  (IPRI  ♦  1)7*4 

2 

34. 

NLStOE  ■ 

20  -  (IPRD/4 

2 

35. 

NBACK  a 

IS  -  (IPRI  -  1)74 

2 

36. 

NBOT  ■ 

4 

2 

37. 

ELSE  IF{  IP 

HI  .LE.  75)  THEN 

2 

36. 

NFRNT  a 

29  -  (IPRI  ♦  1)73 

2 

39. 

NRSIOS  a 

25  -  (IPRD/3 

2 

40. 

NLSIOE  > 

23  -  (IPRI  -  1)>! 

2 

41. 

-NBACK  ■ 

0 

2 

42. 

NBOT  » 

4 

2 

43. 

ELSE  IF(  IP 

M  .LE.  80)  THE(| 

2 

44. 

NFRNT  ■ 

80—  IPRI 

2 

4S. 

NRSIOE  a 

0 

2 

46. 

NLSIOE  a 

0 

2 

47. 

NBACK  a 

0 

2 

48. 

NBOT  a 

4 

2 

49. 

ELSE 

2 

SO. 

NFRNT  a 

0 

2 

51. 

NRSIOE  « 

0 

2 

32. 

NLSIOE  « 

0 

2 

S3. 

NBACK  a 

0 

2 

54. 

NBOT  a 

84  -IPRI 

2 

33. 

ENO  IF 

2 

56. 

* 

2  57.  a  COMPUTE  ATSUMP  IN  WATTS  USING  THE  PROPERTIES  OF  A  GE0METER1C  PROG 
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*»•  aspini  »** 

2  :>».  • 

1  iv. 

..  1  60. 

1  ol.  ’  • 

1  62.  10 

63. 

64. 

» 

ENO  FTN  177  IBANK  47  OBANK  335  COMMON 
SHOG/P  ***  ANTGAN  **» 


ATSUMP(6«-1PR1)  *  PTOPLU*<  SUM< NFRNT >  4  SUN(NRStOE)  ♦ 
2  SUH( Nl 3 1  06 )  *  SUMINSACK)  )  *  PBOTLO*C  SUMS (NSOT)  ) 

CONTINUt 

RETURN 

ENO 
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•  »»  AtNUO  »*» 

•FTM.S  A. AIMOO, A.  *  t  MiJO 

FIN  11R11X14  0>/J0/H-15:14<2U,; 

1.  SUBROUTINE  AIMOO 

2.  C 

3.  C  THIS  SUBROUTINE  DETERMINES  THE  EFFECTS  OF  TCAS  NHISPER  -  SHOUT 

4.  C  INTERRUGAT  tQNS  AT  AU  AIRCRAFT. 

5.  C 

6.  C  »•*»«••*•«»»**»*#  INPUTS  /  OUTPUTS  -.**»*»**a**i.**»A*****»***» 

7.  C 

8.  C  COMMON  BLOCvS  /  VARIABLES 

9.  C  INPUTS  OUTPUTS  DESCRIPTION 


10. 

C 

11. 

C 

ANTENN 

/ 

A2PAT 

SUM  PATTERNS  OF  TCAS  It  M  TOP  ANTENNAS 

12. 

c 

OIFPAT 

DIFFERENCE  PATTERNS  OF  TCAS  II  N  BOTTOM 

IS. 

c 

ANTENNAS 

14. 

c 

CAS 

/ 

ICASFI 

TCAS  II  M  ENVIRONMENTAL  FILE 

IS. 

c 

II 

TCAS  II  H  IDENTITY 

IS. 

c 

I  JFILE 

ANTENNA  COUPLINGS  BETMEEN  TCAS  AND  VCTN 

17. 

c 

NAC 

NUMBER  OF  AIRCRAFT  IN  DEPLOYMENT 

18. 

c 

SENS 

/ 

JSENS 

SENSITIVITY  LEVEL  OF  ALL  AIRCRAFT 

19. 

c 

TCOATA 

/ 

1111 

TCAS  II  M  POINTER 

20. 

c 

IAT  IN 

IAT  IN 

TCAS  II  H  INTERROGATIONS  TO  ATCRBS 

21. 

c 

IATSU 

IATSU 

TCAS  II  M-PROOUCEO  ATCRBS  SUPPRESSIONS 

22. 

c 

IDAAN 

IDABN 

TCAS  II  H  INTERROGATIONS  TO  MODE  S 

21. 

c 

IOABS 

IOABS 

TCAS  II  N-PROOUCEO  NODE  S  SUPPRESSIONS 

24. 

c 

TEMP 

/ 

I  TIME 

ELAPSED  TIME 

2S. 

c 

TRAX 

/ 

JTRANS 

TRANSMISSION  POUER  LEVELS  OF  ALL  A/C 

26. 

c 

ILMS 

/ 

NMSL 

»  OF  M-S  LEVELS  SENT 

27. 

c 

MSHOUT 

/ 

I  PR  A 

ANTENNA  PATTERNS!  BACK  ANTENNA 

28. 

c 

IPR30 

BOTTOM  ANTEHNA 

29. 

c 

IPRF 

FRONT  ANTENNA 

10. 

c 

• 

IPRS 

SIDE  ANTENNAS 

31. 

c 

32. 

c 

13. 

INCLUOE  RESTART 

,LIST 

1.1  PARAMETER  (NUAIR  *  74  J) 

2.1  C 

5.1  C  THE  LOGICAL  VARIABLE  PRINT.  WHEN  FALSE.  MILL  SUPPRESS  ALL  NRITE 

4.1  C  STATEMENTS  IN  THE  MODEL. 

5.1  C 

a.  I  LOGICAL  PO I SMO.  PI  NT  L'l.PTCSMT.PATMOD.POI  SIN. PFILES.PFRUIT.PS!  ATS 

7.1  COMMON  /PRTJL/  POISMO.PINTLI.PTCSMT.PATMOO.POISIN.PFILES.PFRUIT. 

8.1  7  PSTATS 

9.1  • 

10.1  DIMENSION  TJFILEINUAIR. 8).  IJFILE (NUA IR.8) ,  ICASFK8J. NUAIR.  1 ) 

11.1  COMMON  7TC0ATA7  1111131),  QENSISJ), 

12.1  T  IAT 1N( NUAIR) ,  I ATSU (NUA IR),  IQABN(NUAIR).  IDABS(NUAIR) 

15. 1  EQUIVALENCE  (TJFILE/l JFILE) 

14.1  COMMON  /CAS/  ICASFI,  T JFILE.  NAC.  II.  PRINT 

14.  INCLUDE  ANTENN.LIST 

1.1  COMMON  /ANTENN/  AIPAT(Si).  0IFPATO6) 

15.  INCLUDE  ILMS, LIST 

1.1  COMMON  /ILMS/  NUSL <4 1) .  AMSP(8S).  IRESEKSS).  ATSUMP(0:S3). 

2.1  2  IRETRN,  TPOM 

16.  INCLUDE  MSHQUT/L  1ST 

1.1  COMMON  /MSrtOUT/  IPRFI24),  IPRSI40).  IPRS(IS).  IPRBOT(A). 

2.1  1  IP0UFC24).  IP0US(41>,  IPOMB(IS).  IP0M80I4) 

17.  INCLUDE  TEMP, LIST 

1.1  COMMON  /TEMP/  ITINE 
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— 

ATM3Q 

.  *  * 

59. 

• 

INCLUOr  1 hAX*L 1ST 

1.1 

CUMMON  /IRAX/  JTKANS (NUAIR) 

5V. 

INCLUOfc  SFN5/L1SI 

t.t 

COMMON  /SENS/  JStNS(NUAlR) 

AO. 

INTEGER  SA 

41. 

OIMENSION  NUM(5) 

42. 

DEFINE  FLO  (I*J*K)  i  3ITS(K*  M  ti  Jl 

45. 

OATA  (NUM(I)*t  »  1,  5)  /4*  24*  20*  15* 

20/ 

44. 

C 

45. 

SA  *  1111(11) 

46. 

00  200  IJ  *  1*  NAC 

47. 

IF  (ICASFI(II*IJ,1).EQ.O)  00  TO  200 

8  SKIP  IF  A/C  IS  OUT  OF  RANGE 

4rti 

HTTP  *  FLO( 34* 2* ICASFI ( I I* I J*1 ) } 

49. 

C 

50. 

c 

8R  IS  RELATIVE  BEARING  BETWEEN  TCAS  II 

N  AND  VICTIM  AIRCRAFT 

51. 

c 

THE  FACTOR  OF  S7.296  CONVERTS  THE  ANGLE  FROM  RADIANS  TO  DEGREES. 

52. 

BR  *  (FLD(9*3*ICASFI( II*IJ*1 ))/40.)*57.296 

53. 

SEN  -  JSENS(IJ) 

8  SENSITIVITY  OF  VICTIM  A/C 

54. 

c 

55. 

c 

ANTENNA  COUPLINGS  (ELEVATION  PATTERN) 

56. 

IGN1  *  ( FLO( 00*09* IJFILE( I J*8) )* (2**27)) 

57. 

IGN1  *  IGNt/(2**27) 

58. 

IGK2  *  ( FL0(09*09* I JFILE(I J*8> )*(2**27) ) 

59. 

IGN2  «  IGN2/ (2**27) 

60. 

IGN3  *  (FLO (1 3*09* I JF ILE(IJ*8))*(2** 

2/)) 

01. 

IGN5  *  IGn5/(2**27) 

62. 

IGN4  *  (FLD(27*09*t JFILE (I J*8))*(2**27)) 

63. 

IGN4  *  IGN4/(2**27) 

64. 

GN1  *  FLOAT (iGN1)/10. 96. 7*6. 0-4.1 

8  ADJUSTMENT  OF  TCAS  TOP  ANTENNA 

65. 

GN2  ■  FLOAT ( IGN2 )/ 1 0. 

66. 

GN3  *  FL0AT(IGNJ)/10.*4. 7*6. 0-4.1 

a  ADJUSTMENT  OF  TCAS  BOTTOM  ANTENNA 

67. 

GN4  *  FL0ATOGN4)  /  10. 

. 

a8. 

IPON  *  FLO ( 1 7*10* ICASFI (II* I J*1)> 

8  FREE  SPACE  POWER  BETWEEN  TCAS  IIM 

69. 

c 

ANO  VICTIM  AIRCRAFT. 

70. 

PON  *  IPOW 

71. 

ATRANS  *  JTRANS(SA) /I  000  000. 

72. 

c 

ADJUSTED  POWER: 

75. 

POM  *  -(POV/IOi)  *  10.*ALQG10( ATRANS)  -  2.796  -  3.0 

74. 

IF  (POW.LTi~84.)  GO  TO  200 

75. 

GV  *  GN2 

76. 

IF  ((GN4.GT.GN2).ANO. (KTVP.NE.O) )  6V 

*  GN4 

77. 

MSEC  *  INT (BR  /  10.  *  0.5)  ♦  1 

8  INTEGER  OF  SECTOR  OEFINEO  BETWEEN 

78. 

c 

TCAS  II  M  AND  VICTIM  AIRCRAFT. 

79. 

00  1007  KP  *  1*  5 

8  DEFINES  90  DEGREE  CUTS: 

80. 

c 

» 

KP  *  1  IS  BOTTOM  FRONT  ANTENNA 

61. 

c 

2  IS  TOP  FRONT  ANTENNA 

82. 

c 

3  IS  RIGHT  SIOE 

85. 

c 

4  IS  BACK 

84. 

c 

5  IS  LEFT  SIOE 

85. 

IF  (MSEC. GT. 36)  NSEC  *  36 

66. 

IF  (MSEC.LT.O)  MSEC*  NSEC  ♦  36 

37. 

IF  (MSEC.EQ.O)  MSEC  *  1 

83. 

SHIFT  «  -AIPAT(MSEC) 

8  SUM  PATTERN  -  GIVEN  SECTOR. 

B9. 

DIFIFT  *  “OIFPAT (MSEC) 

8  DIFFERENCE  PATTERN  -  GIVEN  SECTOR 

90. 

IF  (RP.NE.1)  NSEC  *  NSEC  -  9 

8  MOVE  90  DEGREE  SECTOR. 

VI. 

ISKIP  *  3 

a  3  OB  FOR  W-S  SEQUENCE. 

92. 

DO  111  IATT  *  1*  NUN(KP) 

93. 

IF  (KP. EQ. 1 )  THEN 

V4. 

<  i  f  iMAXVi  IPR80T  (IATT) 
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A  T  MOD 


4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 
3 
J 
3 
3 
3 
3 
3 

5 
3 
3 
3 
3 
3 
3 
3 

3 

4 

4 
3 

5 

6 
t 
6 
6 
s 

i 

3 

5 

5 

3 
5 
5 
5 
5 

4 
4 
4 
4 
4 
4 
4 

4 

5 
o 

6 

4 
6 

5 


VS. 

96. 

97. 
V8. 
99. 

103. 

101. 

10?. 

103. 

104. 

105. 

106. 
10?. 
108. 

109. 

110. 
111. 
112. 

113. 

114. 
113. 
116. 

117. 

118. 

119. 

120. 
121. 
122. 

123. 

124. 

125. 

126. 

127. 

128. 

129. 

130. 

131. 

132. 

133. 

134. 

13) . 
136. 
1  37'. 

138. 

139. 

140. 

141. 

142. 

143. 
144'. 

14) . 

146. 

147. 
146. 

149. 

150. 

151. 

152. 

153. 


ttSr.  IF  (KP.ta.2)  THEN 
IHAX  V.IPRF  (Utf) 

ELS L  IF  CKFIEQ.3)  THEN 
IHAX  «•  IFRS  CUTT*2> 
ELSE  IF  (XP.fcO.4)  THEN* 
IHAX  4.  ma  1 1  ATT) 
ELSE  '' 

IHAX  «  l PR S  ( IATT *2  6 
END  IF  ■ 1 " 


1) 


CHECK  TO  SEE  IF  NUH8F.fi  OF  LEVELS  CUT  EXCEEOS  PRIQRITT  LEVEL: 

32NH)L<it)>  GO  TO1  111  v-’  »  ■  ' 


IF'CIHAX  jUt4.'  83“ 

A T It NI  24  -  liTT 
FWliI'<4  FUN1  -  ATtENl 
PMXS  =  PWRI  -  itlSKIP 
IF  UATTiEft.l)  PN»ST*  -100. 

;  t  •  1  " 

ISKIP  *  ISKIP  -  1 
IF  (ISXIP.'iTil)  ISKIP  «  3 
IF  (aSKIF’.CEiniAtiDilKTVP.EQ.U))  ISKIP  «  3 
G&COUP^i  ’ GN1  ♦  -6V'* t"  j' ANTENNA  COUPLINGS  BETWEEN 
IF'  (KP.E9.1)  ONCOUP  *  GN34GV  A  fCAS  II  ’H  AND'VICTIH  AIRCRAFT 
SHPWRt  •J‘PM»r4SHlFT  ♦CMcdOp’  8  INTERROGATION  SUN 'POWER.  1 
OFPWRl  4  PiiRI  iOt^ IFT4  ♦GNCbflP  R  INTERROGATION  DIFFERENCE  POWER 


8  TOTAL  ATTENTUATION. 

•»  INTERROGATION' POWER, 
a  suppressi6nupower. 
a  FIRST  INTi  SUPPRESSION  IS  HADE 
AT 'A  LOWER  POWER  LEVEL 

a  suppression’ down  counter. 


SHPWRS  ■  PWRS  4SHtFf'4;GNC0UP  a  SUPPRESSION  SUN ’P0WE8i 
OHPWRt  *  6i‘  ”  ‘  ’T  •  '•  '  ‘ 


IF  <KP,tQ;'1)  THEN 
'•  OHFWRl  '  'POW  F  GNCOUF 
IpPJtATT.ECii'li  TrtEr’- 
!  OHFWRI  **dMPlJRi'VT  19 


a  INTERROGATIONS  ON  OHNI. 

a  ADJus'f!,ii)TEaaoGATi(iN'>eOHEa 


IF'IKTTP.  fc'OiO)  lTHEH 
0rfp»)RS,»'aii6-',; 


-100 


use 

’OHPWRS 

ENOr|lF’  ' 

ELSE nIF  1{IATT.E0.2)THEN 
’OHFWRl  '•‘QHFNRI  — <17 
OHfVRS  »  OHFWRl  -  340 
ELSE !•<<!>  KCI  hlfi&SHt  'THEN 
'OHFWRl  'OHFWRl  —  'IS 
OHPWRS  *  QHPWR I  -  3.0 
fc  L  S  t‘  "T  F  t  I  AT  T‘i'E  Qi'4  >  'TllfcN 
•  'OHFWRl  '4  'fiHFNRI'  :T -1*3 
OHPWRS  «'  OHPNRI  -  J.’O 
END-IF  '  r 


OFPNRI  =0. 
SHPWRt  4  ().- 
S HP WHS  4  b. 


999 


IF  (  PATHOO) 

1  'NR  I  TEC  »F'999>  I  J.BR.X  P.MSEC.OMPNRI.OHPWRS. SEN 


PORHATC*  ‘ATdOtjs’^FHT  s999'*  » llV:2Xi?P10A'3V’5X/'2t  15/  5X)/3(F10.3/5X)> 
'IF1..(0MPV1RS  .vG'E'.SlEt1)''T,rtEN  '  r  >8  'COUNT' 'SUPPRESSIONS 


IF-'CRTT  PiNE.0  )•  JTHEW ' 

‘  lOABSCi'J)  4  lOABSCIJ)  ♦  1 
ELSE1  ‘  -•  ■ 

fi  tATSUCIJ).*  IATSU(IJ)  ♦  1 
ENO  IF 

ELSE  IF  (OHPWRI.GE.SEN)  THEN 


B-8 


DOT/FAA/PM-85/22 


Appendix  B 


*»«  ATHOU 


t 

b 

b 

6 

5 

4 

4 

4 

4 

4 

5 

6 
6 
6 
6 
s 

i 

1 
b 
6 
6 
6 
5 
4 
3 

2 
2 
1 
1 
1 
1 
1 
1 
1 


1)4. 
1  >4. 

196. 

197. 

198. 

199. 
laO. 
let. 
1 62. 

163. 

164. 

165. 

1o6. 

167. 

168. 

169. 

170. 

171. 

172. 

173. 

174. 
179. 

176. 

177. 

178. 

179. 

180. 
181. 
182. 

163. 

164. 
185. 

166. 
187. 
1  <68. 

189. 

190. 

191. 

192. 


IF  CXTYP  . t 0.0)  THEN  S  COUNT  INTERROGATIONS 
IMIN(IJ)  *  IATINIIJ)  6  1 
ELSE 

IDABN(tJ)  *  ioaskmj)  4  1 
INI)  tF 
tNU  IF 
ELSE 

IF  <  PATMOO) 

1  WRITE  (A/998)  I J/bR.XP.MSEC/ SHPHRI.SNPMRS. SEN/OFPNRI 

998  FORMAT! *  FMT  998  •/ 1  3* 2X.F10.  3.SX.2U  S*5X >*4(F10. 3«5X> > 

IF  (SMPURS .GE. SEN)  THEN  8  COUNT  SUN  SUPPRESSIONS 
IF  UTTP.EU.O)  THEN 

IATSUIIJ)  *  IATSUIIJ)  4  1 
ELSE 

lOAdS(IJ)  «  IPA5SIIJ)  4  1 
ENO  IF 

ELSE  IF  (I SMPURI.6T .OFPURD.ANO.ISMPURI.GE. SEN))  THEN 
C  C"  1NT  SUM  INTERROGATIONS 

IF  (ATYP.NE.O)  THEN 

IOASN(IJ)  >  10AINIIJ)  4  1 
ELSE 

lATIN(IJ)  a  IATIN(IJ)  4  1 
ENO  IF 
END  IF 
ENO  IF 

Ml  CONTINUE 

1007  CONTINUE 

* 

ITOT  <  IATSUIIJ)  4  IDA8SIIJ)  4  10ABNIIJ)  4  IATIN(IJ) 

C  IF!  ITOT  .OT.  0>8RITfc(6, 16)11, IJ. IATSUIIJ), IQARSIIJj/IOAlNIIJ) 

C  2  /lATIN(IJ) 

16  FORMAT!*  ATMOO:  It  IJ  ATSU  DApS  OASN  ATIN  *#615) 

« 

200  CONTINUE 

» 

RETURN 

* 

C  DEBUG  INITIIATSU/ IDAbS, I0A8N, I  AT  IN) 

ENO 


ENO  FTN  59/  IBANX  197  08ANK  72823  COMMON 
8H0G,P  •••  BEAR  »*• 
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***  bear  *»• 

8FTN#S  B. BEAR/ HEAR 

FIN  1 1R1  02/27/85-16:35(19#) 

1.  SUBROUTINE  BEAR 

2.  C 

3.  C  CALCULATES  HORIZONTAL  DISTANCE  IN  NNI  AND  ANCLE  IN  RADIANS  BETWEEN  TCAS 

6.  C  ANO  VICTIM  AIRCRAFT. 

5.  C 

6.  COMMON/ 88BEAR/TL AT# TLON#RLAT#RLON#C I ST#  BEARTX 

7.  C 

B.  C  RADIUS  OF  THE  EARTH  IN  NNI: 

9.  RAOIUS  ■  3461.0 

10.  C  * 

11.  C  DIFFERENCE  IN  LATITUDES  AND  LONGITUDES  OF  TWO  AIRCRAFT  IN  RAOIANS: 

12.  OLAT  «  TLAT  -  RLAT 

13.  OLON  ■  TLON  -  RLON 

14.  C 

15.  C  COSINE  OF  THE  AVERAGE  LATITUDE  (SCALING  FACTOR  FOR  LONGITUDE) 

16.  CS  »  COS  (G.5*(RLAT  ♦  TLAT)) 

17.  C 

18.  C  SCALEO  DIFFERENCE  IN  LONGITUDES: 

19.  OLON  «  OLON»CS 

20.  C 

21.  C  DISTANCE  BETWEEN  TWO  AIRCRAFT  IN  NNI  CALCULATED  USING  THE  FTTHACOREAN 

22.  C  THEOREM: 

23.  OIST  »  RADIUS  •  SQRT(OLAT*DLAT  ♦  OLON»OLON) 

24.  C 

25.  C  CHECK  DIFFERENCE  IN  LONGITUDES  TO  FREVENT  DIVISION  BT  ZERO  IN  THE 

26.  C  BEARING  CALCULATION: 

27.  IF  (  ABS(DLON*RAOIUS)  .LT.  0.001)' OLON  *  0.001/RADIUS 

28.  C 

29.  C  CALCULATE  THE  ANGLE  BETWEEN  THE  TWO  AIRCRAFT: 

30.  BEARTX  >  ATAN  (“OLAT /OLON) 

31.  C 

32.  C  ADJUST  THE  AXIS: 

33.  BEARTX  «  -BEARTX  9  1.3707964 

34.  C 

35.  C  MAKE  SURE  THAT  THE  ANGLE  IS  GIVEN  AS  A  FOSITIVE  VALUE: 

36.  IF  ( OLON. LE. 0.0)  BEARTX  *  BEARTX  ♦  3.1415927 

37.  C 

38.  RETURN 

39.  ENO 

ENO  FTN  83  IBANK  35  OBANK  6  COMMON 
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*•*  tlRCAS  •*♦ 


/ 


iFTN/5  A.CIRCAS,A.CIRCAS 

FTN  11R11R1A  05/33/85-13:14(17,) 

1.  C 

2.  C  THIS  MOOULt  IS  THE  DRIVER  FOC  THE  T CAS  SIGNAL  ENVIRONMENT  MODEL.  IT 

3.  C  SPECIFICALLY  ACCESSES  SUBROUTINES  THAT: 

A.  C  1.  LOAD  AIRCRAFT  FILES 

5.  C  2.  SET  TRANSPONDER  CHARACTERISTICS 

6.  C  3.  SCHEDULE  TCAS  It  M  EMISSIONS 

7.  C  4.  COMPUTE  TCAS  EFFECTS 

s.  c 
V.  c 

10.  INCLUOE  RESTART, LIST 

11.  * 

1.1  PARAMETER  (NUAIR  *  743) 

2.1  C 

3.1  C  THE  LOGICAL  VARIABLE  PRINT,  WHEN  FALSE,  HILL  SUPPRESS  ALL  WRITE 

4.1  C  STATEMENTS  IN  THE  MODEL. 

5.1  C 

6.1  LOGICAL  POI SMO, PINTL I, PTCSMT,PATMOO,POI SIN,PFILES,FFRUIT »PST AT S 

/.I  COMMON  /PRT8L/  PpiSMD,PINTLI>TCSMT,PATMOO,POISIN,FFILES,FFRUIT, 

8.1  2  PSTATS 

9.1  A 


10.1 

11.1 

12.1 

13.1 

14.1 

12. 

1.1 

13. 

1.1 

14. 

1.1 

15. 

1.1 

14. 

17.  C 

18.  C 

19.  C 

20.  C 

21.  * 
22.  * 

23. 

24. 

23. 

26.  IS 

27.  25 

23.  * 

29. 

30.  * 

31. 

52. 

33. 

34. 

35. 

36. 

37. 


DIMENSION  T JFILE(NUAIR,8),  IJFILE(NUA1R,R>,  ICASFIU 3,NUAIR,1  > 

COMMON  /TCOATA /  1111(33),  OENS(83), 

T  IATIN(NUAIR),  IATSU (NUAIR),  (OABN(NUAIR),  IOABS(NUAIR) 

EUUIVALENCE  (TJFILE,! JFILE) 

COMMON  /CAS/  ICASF1,  TJFILE,  NAC,  II,  PRINT 
INCLUOE  BBBEAR,L!ST 

COMMON  /BdBEAR/  TLAT,  TLQN,  RLAT,  RLON,  OIST,  BEARTX 
INCLUOE  OPLTMT,LIST 

COMMON  /OPLYMT/  IATCR,  IOAB,  ITCA,  RATIO 
INCLUOE  TCAA,LIST 
COMMON  /TCAA/  NUMTCA 
INCLUOE  TEMP, LIST 
COMMON  / TEMP/  ITINE 
LOGICAL  T1 

LOADS  files,  sets  initial  conditions,  computes  near  tine-indepekoent 

TCAS  I  EFFECTS 


REAO  IN  PRINT  OPTIONS  FROM  1ST  LINE  OF  FILE  7. 

REAQ(7,15)1SIHT,AATIU,T1,PDISHD,PINTLI,PTCSMT,PATN00,PDISZU» 

2  PFILES,  PFRUIT 

WRITE (6,25)  T1,PDISMD,PINTLI«PTCSMT,PATM0D,P0ISIN, PFILES, PFRUIT 
FORMAT(I3,1X,F5.0,1X,8(L1,1X)  ) 

FORMAT!'  0PTI0NS:',8(1X,L1,1X),/) 

WRITE<6,»)'  THE  TOTAL  SIMUATION  TIME  **,I SIMT,'  RATIO*', RATIO 


CALL  INIT 
CALL  ASPINT 
CALL  INPUT 
CALL  TRANSP 
CALL  TST ART 


0  INITIALIZE  ALL  COMMON  VARIABLES 
8  INITIALIZE  ATCRBS  SUM  POWER  ARRAY 
a  LOAD  AIRCRAFT  FILE  AND  RATES 
a  LOAD  A/C  EMMISION  CHARACTERISTICS 
a  SET  TCAS  II  M  SOUITTER  PHASE 


CALL  LOAD 


a  l  HAD  TCAS  TABLES 
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40. 

41. 

42. 

43. 

44. 

43. 

44. 
47. 
43. 

49. 

50. 

51. 

52. 
55. 
34. 
55. 
54. 

57. 

58. 

59. 
40. 
61. 

42. 

43. 

44. 

45. 
44. 

47. 

48. 

49. 

70. 

71. 

72. 

73. 

74. 

75. 
74. 

77. 

78. 

79. 

80. 
81. 
82. 

83. 

84. 

85. 
84. 


1000 
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... 

CALL  PRESET  S  APPPKOXIMATE  INTERFERENCE  EFFECTS 

IF  (T1>  CALL  TCAS1  8  CONFUTE  TCAS  I  EFFECTS 

THE  FOLLOWING  LOOP  CALCULATES  TCAS  II  H  TINE-OEPENOENT  EFFECTS 

DO  1000  ITINE  *  1/ISIHT  8  SIMULATION  CLOCK 

HOVE  AND  RELOAO  TCAS  II  N  TABLES  EVERT  40  SECONDS 
IF(NOO(ITINE*4O).EQ.0)  CALL  LOAD 


DO  4  IX  *  1.  NUHTCA  8  CONFUTE  TCAS  II  EFFECTS  (II  IS  TCAS  10) 

LOAD  TOF  AND  SOTTON  ANTENNA  COUPLINGS  BETWEEN  TCAS  II  N  ANO  ALL 
OTHER  AIRCRAFT. 

CALL  ANTGAN 

CONFUTE  FRUIT  RATE  AT  TCAS  II  N  EVERT  20  SECONOS.  FRUIT  RATES  ARE 
USEO  TO  DETERMINE  EFFECTS  ON  DETECTION  PERFORMANCE. 

IF  (  (ITINE. £0.1)  .OR.  (MOO(ITINE*20)  .EQ.  0)  )  CALL  FRUITA 

CALL  OISNOD  (LPLUS1) 

COMPUTE  SMOOTH  VALUES  OF  TCAS  II  N  INTERROGATION  RATES  ANO 
TRANSMISSION  POWER  LEVELS. 

CALL  TCSHdT 

COMPUTE  MODE  S  EFFECTS 
IF  (LPLUS1.NE.0)  CALL  01 SI NT 

i  . 

COMPUTE  WHISPER-SHOUT  EFFECTS  FROM  TCAS  II  M  TO  ALL  OTHER  AIRCRAFT 
IF  (( ITINE. EQ.1 ).0R. (M00(1TIME#40).EQ.0>)  CALL  ATMOD 

ADJUST  TCAS  II  M  CHARACTERISTICS  TO  SATISFT  INTERFERENCE-LIMITING 
INEQUALITIES 

IF  (ITINE  .CE.  5)  CALL  INTLI 
CALL  STATSC  CIRCAS') 

CONTINUE 


CONTINUE 

CALL  FILES  0  LOAD  RATE  FILES  FOR  ATC  NOOEL. 

ENO 


END  FTN  154  IBANK  105  OBANK  70774  COMMON 
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BFTN/S  B. CNVRT /CNVRT 

FIN  11R1  02/27/85-16s35<10*> 


1. 

SUBROUTINE  CNVRT  (K) 

2. 

C 

■ 

4 

3. 

C 

THIS  SUBROUTINE  DETERMINES  THE  AIRCRAFT  TYRES 

* 

4. 

C 

•  **0 

5. 

C 

•DABS' »1 

6. 

C 

•TCAS'«3 

, 

7. 

c 

8, 

DEFINE  FL0(I#J#K)  ■  BITS(K/I+1» J) 

9. 

IF  (FL0(0/6/K).EQ«9)  THEN  8  MOOE  S 

1 

10. 

K«1 

1 

11. 

ELSE  IF  (<FL0(0»6rK).EQ»25).QR.(FL0(0/6«K).EQ.7>)  THEN 

1 

12. 

K*3  a  TCAS  II  M 

1 

1). 

ELSE  a  ATCRBS 

< 

1 

<14. 

K«0 

l 

1 

is. 

ENO  IF 

16. 

RETURN 

17. 

END 

END  FTN 

44  IBANK 

12 

OBANK 
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*»*  OISINT  *** 

iFTN/S  8. OISINT, OISINT 

FTN  UNI  02/27/85-16:35(81,) 


1. 


SUBROUTINE  OISINT 


1.1 

2.1 

3.1 

4.1 

5.1 

8.1 

7.1 

8.1 

9.1 

10.1 

11.1 

33. 

34. 

35. 
38. 

37. 

38. 

39. 

40. 

41. 

42. 

43. 

44. 

45. 

46. 


2. 

C 

1 

3. 

C 

THE  PURPOSE 

OF  THIS  SUBROUTINE  IS 

TO  COMPUTE  MISADDRESSED  RATES  ANO 

4. 

C 

AOORESSEO 

RATES  AT 

EACH  AIRCRAFT. 

s  • 

6  • 

c 

** * INPUTS 

/  OUTPUTS 

7* 

8. 

c 

c 

COMMON  SLOCKS 

,/  VARIABLES 

9. 

c 

INPUTS 

OUTPUTS 

DESCRIPTIONS 

10. 

c 

, 

11. 

C 

ATE 

/  ORATE 

TOTAL  INTERROGATIONS  RECEIVEO 

12. 

c 

BV  EACH  TCAS  II  N 

13. 

c 

CSA 

/  II 

TCAS  II  M  IDENTITY 

14. 

c 

NAC 

NUMBER  OF  AIRCRAFT'  IN  DEPLOYMENT 

15. 

c 

DPLVMT 

/  IATCR 

NUMBER  OF  ATCR9S  AIRCRAFT 

18. 

c 

ILMS 

/  ANSP 

ADJUSTED  TCAS  II  M  EMISSION  POKER 

17. 

c 

MISAO 

/  MIS 

MIS 

MISADDRESSES  AT  EACH  AIRCRAFT 

18. 

c 

ONT 

/  OINTRT 

OINTRT 

AOORESSEO  RATE  TO  EACH  AIRCRAFT 

19. 

c 

UPRATE 

UPRATE 

TOTAL  NUMBER  OF  INTERROGATIONS  REC'D 

20. 

c 

SENS 

/  JSENS. 

SENSITIVITY  LEVELS  OF  ALL  AIRCRAFT 

21. 

c 

SETA 

/ 

AORESS 

NUMBER  OF  ADORESSES 

22. 

c 

SINT 

/  ITOB 

INDICATES  ANTENNA  ON  WHICH  TCAS  II  M 

23. 

c 

TRANSMITTED 

24. 

c 

L  PLUS- 

NUMBER  OF  TCAS  II  M  TRANSMISSIONS 

25. 

c 

TCAA 

/  NUMTCA 

NUMBER  OF  TCAS  II  M  A/C 

28. 

c 

TCOATA 

/  1111 

TCAS  II  M  POINTER  FILE 

27. 

c 

TEMP 

/  ITIME 

ELAPSED  TINE 

28. 

c 

TRAX 

/  JTRANS 

TRANSMISSION  POHER  FOR  ALL  AIRCRAFT 

29. 

c 

JSENS 

SENSITIVITY  LEVELS  FOR  ALL  AIRCRAFT 

30. 

c 

31. 

c 

32. 

INCLUDE  RESTART, LIST 

* 

PARAMETER  (NUAIR  ■  328) 

THE  LOGICAL  VARIABLE  PRINT, 
STATEMENTS  IN  THE  MODEL. 


WHEN  FALSE,  HILL  SUPPRESS  ALL  WRITE 


LOGICAL  PRINT 

OIMENSION  T JFILE(NUAIR,8),  IJFILE (NUAIR, 8),  ICASFI(83,NUAIR,1) 
COMMON  7TC0ATA/  1111(83),  0ENS(83), 

1  lATIN(NUAIR),  lATSU(NUAIR),  lOABN(NUAIR),  IOABS(NUAJtR) 
EQUIVALENCE  (TJFILE, IJFILE) 

COMMON  /CAS/  ICASFI,  TJFILE,  NAC,  II,  PRINT 
COMMON/ AT E/OR ATE (83) 

C0MM0N/0NT/0INTRT(NUAIR),UPRA7E( NUAIR) 

COMMON/M I SA0/MIS(NUAIR) 

COMMON/ TEMP/IT IME 
COMMON/TCAA/NUMTCA 

COMNON/ILMS/KCARR(83),AMSP(83),IRESET (83) 

COMMON/TR AX/ JTRANS (NUAIR) 

C OMMON/ SENS/ JSENS (NUAIR) 

COMMON / SET A/ ACRE SS (NUAIR) 

C0MM0N/S4NT/LPLUS,K,IT06(100) 

COMMON/OPLYMT/I ATCR,IOAB,ITCA 
INTEGER  SA 

OEFINE  FLO(I,J,K)  *  BITS(K,I+1,J) 
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SA  *  1111 <XI> 

DO  7  N  *  1*  NAC 

IF  (ICASFI(II*N/1).EQ.O)  GO  TO  7 
IF  (N.EQ.SA)  GO  TO  7 


8  TCAS  II  *  IOENTIT Y 
8  LOOP  OVER  ALL  AIRCRAFT 
8  SKIP  IF  OUT  OP  TCAS  IIM  RANGE 
8  00  NOT  PICK  TCAS  IIN  AS  VICTIM 


GET  ANTENNA  COUPLINGS  BETUEEN  TCAS  II  M  AND  VICTIM  AIRCRAFT. 

THE  FACTOR  OF  2**27  SHIFTS  BITS  UP  AND  THEN  BACK  DOWN  AGAIN  TO  RECOVER 
THE  SIGN  BIT. 

KGN1«<FL0 (00*09/1 JFILE(NsB))* (2**27))  8  TCAS  II  H  TOP  ANTENNA  CAtN 
KGN1*KGN1/(2**27) 

GNWGN1/10.44.7-1.9 

KGN2*(FLD(09*09*tJFILE(N*S))*(2**27))  8  VICTIM  TOP  ANTENNA  GAIN 
KGN2*KGN2/(2**27> 

GN2*KGN2/10. 

KGN)*(FLD(18*09*IJFILE(N* BJ)*( 2**27) >  8  TCAS  II  H  BOTTOM  ANTENNA  CAIN 
KGN3*KGN3/(2**27) 

GN3-KGNJ/10.+4.7-1.9 

XGN4*(FL0(27*09* I JFILE(N*8)) *(2**27) )  8  VICTIM  BOTTOM  ANTENNA  GAIN 
KGN4*KGN4/ (2**27) 

GN4*KGN4/10. 

IQ*FLD(34*2*ICASFI(II*N*1))  8  VICTIM  AIRCRAFT  TYPE 

00  6  M*1 /LPLUS  8  LOOP  OVER  ALL  TCAS  IIM 


8  VICTIM  AIRCRAFT  TYPE 
8  LOOP  OVER  ALL  TCAS  IIM 
INTERROGATIONS. 

8  TRANSMIT  TOP. 

8  TRANSMIT  BOTTOM. 


IF  (ITOB(M).EQ.I)  GS  -  GN1  8  TRANSMIT  TOP. 

IF  (IT08(M).EQ.3)  GS  -  GNS  8  TRANSMIT  BOTTOM. 

6V  *  GN2 

IF  ((GN4.GT.GN2) . AND.t IQ.NE.O))  GV  •  GN4 
GNTOT  *  GS  *  GV  8  TOTAL  ANTENNA  COUPLING. 

IPRU  *  FL0(17*10*ICASFI(II*N*1>>  8  PONER  LOSS  (FREE  SPACE). 

PRM  *  IPRU 

ATRANS  »  JTRANS(SA)/1  000  000.  8  TRANSMISSION  PONER  (KMATTS) 

CTRANS  *  ATRANS*1000.  8  (MATTS) 

RVPRJ  «  -(PRU/10.)  ♦  10.*ALOG10( ATRANS)  -  3.0 
-  10«*AL0G10(CTRANS/AMSP(II)) 

POUT  »  RVPR3  ♦  GNTOT  8  TOTAL  PONER  AT  VICTIM 


IF  TOTAL  PONER  VICTIM  RECEIVEO  IS  GREATER  THAN  VICTIM  SENSITIVITY* 
COUNT  A  MISADDRESS  AT  VICTIM: 

IF  (PQUY.GE. JSENS(N))  MIS(N)  *  MIS(N)  *  1 
CONTINUE 
CONTINUE 


CHECK  ARRAYS  FOR  PROPER  SOUITTER  COUNTING  AND  MISADDRESSED  RATE. 


IF  (II.EQ.NUMTCA)  THEN 
00  4000  NB  *  1/  NAC 


8  COMPUTE  AVERAGES  AFTER  ALL 
8  PICK  A  VICTIM  AIRCRAFT. 


OINTRT  IS  THE  ARRAY  FOR  EACH  MOOE  S  TRANSPONOER  THAT  RECEIVES 
TCAS  II  M  INTERROGATIONS 

IF  (IJFILE(NB*4).NE.0)  DINTRT(NB)  *  OINTRT (NB)  *  1  i 

UPR*T£(NB)  *  UPRATECNB)tOINTRT(NB)  8  TOTAL  NUMBER  OF  INTERROGATIONS 
AORESS(NB)  <  OINTRT (NB)  8  *  OF  AOORESSES  RCVO  THIS  TINE 

OINTRT (NB)  =0.  8  RESET  COUNTER 

CONTINUE 
END  IF 
RETURN 
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M»  DISINT  •*« 

106.  END 

END  FT(*  314  tSANK  92  DbANK  33736  COMMON 
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01  SHOO 


8FTM.J  B.OlSMOO/OISMOO 
FTN  11R1  - 


7.1 

8.1 
9.1 

10.X 

11.1 

44. 

45. 

46. 


02/27/85 

-t6s35(25/> 

„ 

1.. 

2. 

C 

SUBROUTINE  OISNOO(LPLUSI) 

4 

3. 

4. 

C 

C 

THE  PURPOSE  OF  THIS  SUBROUTINE  IS 

TO  SCHEOULE  MOOE  S  OISCRETE 

5. 

C 

INTERROGATIONS. 

7. 

C 

INPUTS  / 

9. 

C 

COMMON  BLOCKS 

/  VARIABLES 

10. 

C 

INPUTS 

OUTPUTS 

DESCRIPTION 

11. 

c 

12. 

c 

AOJSEN 

/  SESIT 

ADJUSTED  TCAS  It  M  SENSITIVITIES 

13. 

c 

ATE 

/ 

ORATE 

INTERROGATION-RATE  AT  EACH  TCASIIM 

14. 

c 

CAS 

/  ICASFI 

TCAS  II  M  ENVIRONMENTAL  FILE 

15. 

c 

II 

TCAS  II  M  IDENTIFIER 

16. 

c 

IJFILE 

TYPE  OF  EACH  AIRCRAFT 

17. 

c 

TJFILE 

AIRCRAFT  CHARACTERISTICS  FILE 

18. 

c 

FRUT 

/FRUIT 

FRUIT  LEVEL  SEEN  BY  EACH  TCAS  TIN 

19. 

c 

ILMS 

/  ANSP 

ADJUSTED  TCAS  II  H  POWER  LEVELS 

20. 

c 

MIS  AO 

/  MIS 

MISADDRESSES 

21. 

c 

ONT 

/ 

DINTRT 

AOORESSED'RATE  TO  EACH  AIRCRAFT 

22. 

c 

UPRATE 

TOTAL  NUMBER  OF  INTERROGATIONS  RCO 

23. 

c 

RCACQ 

/  IROL 

MAXIMUM  INTERROGATION  RATE  INROLL 

24. 

c 

ITRIL1# 

2#3#4 

MAXIMUM  FAILEO  INTER ROGATIONS/ SC AN 

25. 

c 

ROLACQ 

/ 

ACQSUN 

MODE  S  INTERROGATION  RATE  COUNT 

26. 

c 

DORSUM 

1  TCAS  II  M  IN  OORMANCT  STATE 

27. 

c 

MAQ 

ACQUISTIQNf COUNTER 

28. 

c 

MOOR 

DORMANCY  COUNTER 

29. 

c 

MROL 

ROLL  CALL  COUNTER 

30. 

c 

HSQ 

SOUITTER  STATE  COUNTER 

31. 

c 

NULL 

NULL  STATE  COUNTER 

32. 

c 

ROLSUN 

NUMBER  OF  AIRCRAFT  INROLL  CALL 

33. 

c 

SENS 

/  JSENS 

AIRCRAFT  SENSITIVITIES 

34. 

c 

SINT 

/ 

ITOB 

INDICATES  WHERE  TCAS  IIM  KNITTED 

35. 

c 

K 

VICTIM  AIRCRAFT 

36. 

c 

LPLUS 

TCAS  II  M  TRANSMISSIONS 

37. 

c 

SURV 

/ITRACK 

ITRACK 

NODE  S  TRACK  FILE 

38. 

c 

TCDATA 

/  1111 

TCAS  II  M  POINTER  FILE 

39. 

c 

TEMP 

/  I TIME 

ELAPSEO  TIME  IN  SIMULATION 

40. 

c 

TRAX 

/  JTRANS 

AIRCRAFT  TRANSMISSION  POWERS 

41. 

c 

♦ 

42. 

c 

43. 

INCLUDE  RESTARTsLIST 

1.1 

PARAMETER  (NUAIR  >  328) 

2.1 

c 

_ 

3.1 

c 

THE  LOGICAL  VARIABLE.  PRINT#  WHEN 

FALSE#  WILL  SUPPRESS  ALL  WRITE 

4.1 

c 

STATEMENTS  IN 

THE  MODEL 

• 

5.1 

c 

6.1 

LOGICAL  PRINT 

r 

DIMENSION  TJFILE(NUAIR#S)/  IJFItE(NUAIR#8)#  ICASFI(8I#NUATR#1 ) 
COMMON  /TCOAJA/  1111(83)#  0ENS(83># 

T  IATIN(NUAIR)#  lATSU(NUAIR)#  IDABN(NUAIR)#  lOABS(NUAIR) 
EQUIVALENCE  (TJFlLE#IJFILE) 

COMMON  /CAS/  ICASFI#  TJFILE#  MAC/  II/  PRINT 
COMMON/ AD JSEN/SE SIT (83)  ' 

COMMON/ ATE/ORATE (83) 

COMMON/ ON T/OINTRT (NUAIR)#UPR ATE (NUAIR) 


B-17 


DOT/FAA/PM-85/22 


Appendix  B 


i 


***  OISMOO  *** 


*7. 

C0MM0N/FaUT/FRUIT(a3> 

48. 

COMMON/TEMP/I  TIME 

49. 

COMMON/RCACQ/ ITR1L1 (6)#1tRIL2(6) # ITRIL3(6)# 

1TR IL4C6) s IftOLC 10) 

50. 

C0MM0N/SURV/ITRACK(33#500)  ’ 

. 

51. 

C OMMON/ ROL ACQ/ROLSUM# ACQ SUM# DOR SUH#MROL# MAQ# MOOR# MSQ#NULL 

52. 

COMHQN/TCAA/NUHTCA 

53. 

COMMON/ ILMS/KCARR( 83)# AMS 8(83)# IRE SET (83) 

54. 

C0MM0N/SM0QTH/N0U(83)#TIS(83)#TP$(83) 

55. 

COMM.ON/TRAX/ JTRANS(NUAIR) 

56. 

COMMON/ SENS/ JSENS(NU AIR) 

57. 

C0MM0N/5INT/LPLUS#K#IT08(100) 

58. 

COMMON/MISAO/NIS(NUAIR) 

59. 

DEFINE  FLO  (1#J#K)  ■  BITS  (K#  1*1#  J) 

60. 

C 

61. 

IF  (II.EQ.1)  THEN 

62. 

CSUM  «  0. 

63. 

ROLSUH  ■  0. 

64. 

ACOSUM  «  0. 

B  CLEAR  OUT  COUNTERS 

6S. 

OORSUM  «  0. 

8  AS  EACH  NEN 

66. 

MROL  «  0 

B  SEARCH  CYCLE  BEGINS. 

1 

67. 

MAQ  ■  0 

68. 

MOOR  »  0 

1 

69. 

MSQ  •  0 

70. 

NULL  >  0 

71. 

SSUN  -  0. 

72. 

CALL  MOVEKA  (NUAIR#0# IATIN) 

73. 

CALL  MOVEKA  (NUAIR#Q#IATSU> 

74. 

CALL  MOVEKA  (*UAIR»0#I0ABN) 

75. 

CALL  MOVEKA  (NUAXR#0#I0AB$) 

76. 

CALL  MOVEKA  (NUAIR#0#HXS> 

77. 

END  IF 

1 

78. 

C 

79. 

C 

80. 

NTRX  >  500 

81. 

DRATE(II)  *  0. 

82. 

C 

83. 

c 

GET  TCAS  ALTITUDE#  ZERO  OUT  COUNTERS. 

84. 

c 

85. 

IH  «  1111(11) 

B  TCAS  POINTER 

86. 

AL2  «  TJFILE(IH#3)/5280. 

8  TCAS  ALTITUDE  IN  MILES 

87. 

LPLUS  «  0 

88. 

LPLUS1  >  LRLUS 

89. 

NOU(II)  >  0 

• 

90. 

c 

91. 

c 

92. 

00  20  IFx1#NTRK 

a  LOOP  AROUNO  ALL  A/C 

93. 

c 

IN  TRACK  PILE 

1 

94. 

IPLUS  ■  0 

1 

95. 

ITRT  «  0 

1 

96. 

IF  (ITRACK(II#IF).E0.0>  GO  TO  20 

1 

97. 

K  x  FL0(0#10#1TRACK(II#IF)) 

1 

98. 

MTIME  •  ITIME  -  1 

1 

99. 

IF  (MTIME.LT. 1)  MTIME-1 

>  TO  KEEP  FROM  OIV.  BT  ZERO 

1 

100. 

A  x  UPRATE(K)/ MTIME 

1 

101. 

N  «  UPR AT E(K) /MTIME 

1 

102. 

FR  »  A  -  N 

1 

103. 

CALL  RANN(RAN) 

1 

104. 

IF  (RAN.LF.FR)  N  «  N  +  1 

1 

105. 

IF  (N.LT.1)  N  x  1 
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1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 


OISHOO 


106. 

107. 

106. 

109. 

110. 
111. 
112. 
113. 

in. 

115. 

116. 

117. 

118. 

119. 

120. 
121. 
122. 

125. 

1 26. 

125. 

126. 

127. 

128. 

129. 

130. 

131. 

132. 

133. 
136. 

135. 

136. 

137. 

138. 

139. 
160. 
161. 
162. 
163. 
166. 

165. 

166. 

167. 

168. 
169. 

150.  ' 

151. 

152. 

153. 
156. 

155. 

156. 

157. 

158. 

159. 

160. 
161. 
162. 
163. 
166. 


666 


AL1  «  TJFILE(K#3)/S280. 

AOAL  -  A8S(AL2-AL1) 

SR  «  FL'OCO.9*  ICASFK  II*K/1))/10. 

ITttNP  ■  FLO(36/2.1CASFX (II/K.1) ) 

IF  (XTEHP.EO.O)  GO  TO  20 
RVFR  *  FL0(17»10/ICASFI(II.K/1)) 

ATRANS  ■  JTRANS(IH)/1  000  000. 

CTRANS  >  1000.*ATRANS 

RVFR1  »  “(RVPR/10.J  9  1O.*AL0G1O(ATRANS)  -  3.0 
■  -  10.*ALOG10(CTRANS/AHSP(II)) 

8TRANS  ■  JTRANSOO/1  000  000. 

RVFR2  *  -(RVPR/10.)  ♦  10.*AL0610<8TRANS>  -  0.7  -  0.3 


8  ALTITUDE  OF  VICTIM  A/C 


8  SLANT  RANGE  BETUEEN  TWO  A/C 
8  A/C  TTFE 

a  ELIMINATE  ATCRSS  A/C 


3.0 


REPLY  P0UEK  OF  M00E  S  AND  TCAS  'II  M  TRANSFONDERS  DIFFERS  8V  2.2  0B. 


IF  <IJFILE(«#6).EQ.3)  RVFR2  «  RVFR2  -  2.2 
1GN1  «  (FLD(00.09.I JFILE(X.8))»(2*»27)) 
ICN2  >  (FLD(09«09/IJFILC(K«8))*( 2**27)) 
ICN3  *  (PL0(13,09,IJFILE(K,8))*(2**27)) 
IGN6  *  (FL0(27,09,IJFILe(X,B)>*(2**27)) 
GN1  »  FLOAT ( IGN1/(2**27) )/10.  ♦  6.7  -  1.9 
GN2  «  FL0AT(IGN2/(2**27) )/10. 

GNI  •  FLOAT (IGN3/,(2**27)  >/10.  ♦  6.7  -  1.9 
GN6  «  FLOAT (IGN6/ (2**27)) /I 0. 

GS  -  GNI 

IF  (CN3.GT.6N1)  GS  »  GN3 
GV  -  GN2 

IF  (GN6.GT.6N2)  GV  •  6N6 
GNG0UP  *  GS  ♦  GV 


FWI  «  RVPRl  ♦-  GNG0UP' 
FUR  «  RVPR2  ♦  GNGOUF 


>  INTERROGATION  FOUER 
a  REFLT  FOUER 


IF  VICTIM  A/C  IS  TCAS  XI  M-EQUIPPEO  AND  ITS  REFLV  FOUER  IS  ABOVE  THE 
SENSITIVITY  OF  THE  TCAS  INTERROGATOR  OF  INTEREST*  RUN  SUBR.  TSQUXT. 


IF  (( ITEMP«EQ*3).AND.(PUR.CE. JSENS(IM)))  CALL  TSQUIT 


THE  NEXT  SEGMENT  OF  COOE  FINOS  THE  PROBABILITY  OF  CLEAR  RECEPTION  OF 
THE  VICTIM'S  REPLY  SIGNAL  BY  THE  TCAS  II  H  AIRCRAFT  USING  A  CURVE-FITTING 
TECHNIQUE.  THE  CURVES  HERE  SUFPLIEO  BY  LINCOLN  LASVORATORY  AND  NAY  BE 
CONSIOEREO  SINUSOIDAL  IN  NATURE  FOR  THE  INTERVAL  UNDER  CONSIDERATION. 


IF  (FAUIT(II).LE.O)  FRUIT(II)  *  100. 

SHIFT  *  3.  ♦  1 0»*ALOG10( FRUIT ( II)/11  *800) 

OSIXX  •  "69i 

ORHO  *  OSIXX  9  SHIFT 

POU  ■  FUR  9  3.0 

T  ■  23. 

IF  (POU. GT. ORHO)'  -T  *  32. 

PU  «  (-ORHO  ♦  F0U)*2*3.16159 -/  T 
FOC  *  0.5  9  0.5*SIN(PU) 

IF  (POH.LT. (ORHO* -  7.)) 

IF  (POU. GT. (ORHO  9  8.)) 

FOC  *  0.95  •  FOC 
OSIXX  *  -72 
ORHO  *  OSIXX  9  SHIFT 
POU  *  FUR  9  3.0 
T  *  28. 

IF  (FOU.GT.ORHO)  T  *  32'. 


FOC 

FOC 


0.0 

1.0 
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145. 

PW  *  (-0RH0  ♦  P0W)*2*3. 14159  /  T 

1 6d« 

’  P0C1  «  0.5  ♦  0.5*SIN(PW> 

147. 

IF  (POW.LT. (ORHO  -  7.))  P0C1  *  0.0 

148. 

IF  (POW.GT.IORHO-  8.))  FOCI  *  1.0  . 

149. 

FOCI  ■  0.95»P0C1 

170. 

C 

171. 

C 

172. 

c 

UPDATE  NODE  $  TARGET  STATUS  AND  SCHEDULE 

173. 

c 

INTERROGATIONS 

174. 

c 

« 

175. 

c 

174. 

V  ■  400. 

177. 

IF  (TJPILE(A/3).6T.10  000)  9  ■  ¥  ♦  300 

178. 

IF  (TJFILE(1H/3).6T.10  000)  ¥  ■  ¥  ♦  300 

179. 

TE  »  INT((SR*3400.)/V) 

180. 

IALTY  »  0 

181. 

ATRIAL  •  FLD(22/3/ITAACA<II/IF>> 

182. 

(SCAN  a  PLD(25/4/ITRACA(IX/IP)) 

183. 

ICLOCA  *  FLDOO/8/ITR  ACR(X1/XF)  )  *(2**28) 

184. 

ICLQCK  *  ICLOCK/(2**28) 

185. 

ISQIT  *  FLO(29/.1/ITRACA(II/IF)) 

184. 

(STATE  a  FL0(18/.4/ITRACA(XI/IF)) 

187. 

IF  (P0N.LE.(SESXT,(1I)  ♦  3.»  PDC  *  0.0 

188. 

IF  ((PON  .LE.  (SESIT(II)  ♦  3.))  .OR. 

189. 

1  ((STATE  .EQ.  0))  THEN  8  NULL  STATE 

190. 

ICONT  «  0 

191. 

c 

» 

192. 

NULL  >  NULL  H  8  NULL  STATE  COUNTER 

193. 

CALL  RANN  (RAN) 

194. 

IF  ((RAN.LT. FOCI). AND. (ISTATE.EO.O))  ICONT  a  ICONT  ♦  1 

2 

195. 

IF  (ICONT  .EQ.  1)  THEN 

3 

194. 

ISTATE  a  1  a  1  REPLY/  CO  TO  SQUITTER 

3 

197. 

ICLOCR  a  18  8  STATE  AND  SET  CLOCA  TO 

3 

198. 

c 

14  SINCE  ENTERING  PRON 

3 

199. 

c 

NULL  STATE 

3 

200. 

ELSE 

3 

201. 

ISTATE  a  0 

3 

202. 

ICLOCA  *  0 

3 

203. 

RSCAN  a  0 

3 

204. 

ATRIAL  ■  0 

3 

205. 

ISQIT  >  0 

3 

204. 

'  ENO  IF 

2 

207. 

ELSE  IF  (ISTATE  .EQ.  1)  THEN  8  SQUITTER  STATE 

2 

208. 

ICLOCA  >  ICLOCA  -  1  8  OECREHENT  PURGE  CLOCA) 

2 

209. 

c 

INITIALIZE  AT  14  WHEN 

2 

210. 

c 

ENTERED  PRON  NULL  STATE/ 

2 

211. 

c 

0  WHEN  FRON  ACQ.  STATE 

2 

212. 

HSQ  ■  HSQ  ♦  1  8  SQUITTER  STATE  COUNTER 

2 

213. 

IF  (ATRIAL  .GE.  1)  THEN 

3 

214. 

IF  (ATRIAL  .EQ.  1)  THEN  8  UP  COUNT  INCRENENTS 

4 

215. 

KSTEP  »  20 

4 

214. 

ELSE  IF  (ATRIAL  .EQ.  2)  THEN 

4 

217. 

ASTEP  ■  14  1 

4 

218. 

ELSE  IF  (ATRIAL  .EQ.  3)  THEN 

4 

219. 

ASTEP  ■  8 

4 

220. 

ELSE  IF  (ATRIAL  .EQ.  4)  THEN 

4 

221. 

ASTEP  *  4 

4 

222. 

ELSE 

4 

223. 

ASTEP  «  2 
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4 

3 

4 

4 

5 
5 

? 

4 

5 
5 
S 
S 
5 
5 
5 
4 
3 
3 

3 

4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
3 
3 
3 

3 

4 

4 

3 

5 
5 
5 

4 
3 
3 
3 

3 

4 

4 

5 
5 
5 
5 
5 
S 
5 
4 
3 
3 
3 


224. 

225. 

22 4. 

227. 

228. 

229. 

2JO. 

231. 

232. 

233. 

234. 

235. 

236. 

237. 

238. 

259.  9101 

240. 

241. 

242. 

243. 

244. 

245. 

246. 

247. 

248. 

249. 

250. 

251. 

252. 

253. 

254. 

255.  9102 

256. 

257. 

258. 

259. 

260. 

261. 

262. 

263. 

264. 

265.  201 

266. 

267. 

268.  210 

269. 

270. 

271.  1 

272. 

273. 

274. 

275. 

276. 

277. 

278. 

279. 

280. 

281. 

282. 


END  IF 

00  9101  L  ■  1#  N 
CALL  RANN  (RAN) 

IF  (KAN  .IT.  FOCI  THEN 

ICLOCK  *  ICLOCK  ♦  KSTEF 
XALTT  «  1 
END  IF 

IF  (ICLOCK  .GT.  0)  THEN 
ISTATE  «  2 
KSCAN  *  0 

KTRIAL  ■  KTRIAL  ♦  1 
IF  (KTRIAL  .GT.  4)  KTRIAL  ■  4 
ICLOCK  a  0 
GO  TO  9102 
END  IF 
CONTINUE 
CALL  RANN  (RAN) 

IF  (RAN  .LT.  FOCI)  ICLOCK  *  ICLOCK 
IF  (ICLOCK  «6E.  0)  THEN 
tSTATE  a  2 
KSCAN  «  0 

KTRIAL  a  KTRIAL  ♦  1 
IF  (KTRIAL  .GT.  4)  KTRIAL  a  4 
ICLOCK  -  0 

ELSE  IF  (ICLOCK  .LE.  -40)  THEN 
ISTATE  «  0 
KTRIAL  a  0 
KSCAN  ■  0 
ICLOCK  a  0 
ISQXT  a  0 
ENO  IF 
CONTINUE 

ELSE  IF  (ICLOCK  .GE.  -1)  THEN 
1C0NT  a  0 

00  201  L  ■  1/  (N-1) 

CALL  RANN  (RAN) 

IF  (RAN  .LT.  FDC)  THEN 
IALTT  •  1 
ICONT  ■  ICONT  ♦  1 
GO  TO  210 
ENO  IF 
CONTINUE 
CALL  RANN  (RAN) 

IF  (RAN  .LT.  FOCI)  ICONT  >  ICONT  ♦ 
CONTINUE 

IF  (ICONT  .NE.  0)  THEN 

IF  ( (AOAL  .GT.  1.700)  .AND. 
(IALTT  .EC.  D)  THEN 
ICLOCK  «  16 
ELSE 

ISTATE  *  2 
KTRIAL  >  KTRIAL  ♦  1 
IF  (KTRIAL  .GT.  4)  KTRIAL  a  4 
ICLOCK  *  0 
ENO  IF 
ENO  IF 
ELSE 

ICLOCK  «  0 
ISTATE  «  0 
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3 

3 

3 

3 

2 

2 

2 

2 

3 

* 

3 

3 

3 

3 

3 

3 

3 

3 

3 

4 
4 

3 

4 
6 
6 
4 
4 
4 
4 
4 

4 
7 
7 

7 

8 
8 
8 
8 
9 
9 
9 
9 
9 
9 
9 
8 
7 
6 

5 

4 

5 
4 
7 
7 
7 
7 
7 
7 
7 


283. 

2S4. 

283. 

284. 

287. 

288. 
2S9. 

290. 

291. 

292. 

293. 

294. 

295. 

296. 

297. 

298. 

299. 

300. 

301. 

302. 

303. 

304. 

305. 

306. 

307. 

308. 

309. 

310. 

311. 

312. 

313. 

314. 

315. 

316. 

317. 

318. 

319. 

320. 

321. 

322. 

323. 

324. 

325. 

326. 

327. 

328. 

329. 

330. 

331. 

332. 

333. 

334. 

335. 

336. 

337. 

338. 

339. 

340. 

341. 


KTRIAL  «  0 
ISQIT  «  0 
KSCAN  «  0 
ENO  IE 

ELSE  IE  (ISTATE  .EQ.  2)  THEN 
KSCAN  ■  KSCAN  9  I 
MAO  •  MAO  91 
IE  (KSCAN  .OT.  6)  THEN 
TSTATE  «  1 
KSCAN  ■  0 
ICLOCK  «  0 
ISQIT  >  0 
ELSE 

ITRIL-SUB  GIVES  MAX  PERMISSIBLE 
IE  (KTR1AL  .EQ.  1) 
(KTRIAL  .EQ.  2) 
(RTRIAL  .EQ.  3) 
(KTRIAL  «GE.  4) 


8  ACQUISITION  STATE 
B  SCAN  INCREMENT 
•  ACQUISITION  COUNTER 


NISSES—A  EUNCTION  OF  TRIAL  8  SCAN 


IE 

IE 

IE 

IE 


ITRV  •  ITRIL1 (KSCAN) 

ITRT  ■  ITRIL2(KSCAN) 

ITRV  »  ITRILKKSCAN) 

ITRV  *  ITRIL4USCAN) 

(ITRV  .NE.  0)  THEN 
LCOUNT  ■  Q 

00  1101  L  ■  1.  ITRV  9  1 

IE  ((LC0UNT.LT.2). ANO.((L~LCOUNT).LE»ITRV))  THEN 
CALL  RANN(RAN) 

IELUS  ■  IELUS  9  1 
ITOB(LELUS  9  1)  -  J 

IE  (INT(GS).EQ.INT(GND)  IT0B(LELUS9l )  a  1 
ACQSUM  ■  ACQSUM  91  B  HOOE  S  INTERROGATION 

RATE  COUNTER 


ORATE(Il)  a  ORATE! II)  9  1 
IF  (EMI  .GE.  JSENS(K))  THEN 

C  ADDRESSED  RATE  TO  AIRCRAFT  Kt 

OINTRT(K)  a  DINTRT(K)  9  1 
IF  (RAN  .LT.  E0C1)  LCOUNT  a  LCOUNT  9  1 
IF  (LCOUNT  .GE.  2)  THEN 
KSCAN  a  0 
KTRIAL  >  0 
ISQIT  a  0 

IF  (TE  .GT.  43)  THEN 

ISTATE  ■  4  B  GO  TO  OORNANCV  STATE 

ICLOCK  a  TE  -  43 
OORSUH  >  DORSUM  9  1 
ELSE 

ISTATE  ■  3  8  GO  TO  ROLL  CALL  STATE 

ICLOCK  a  0 
END  IF 
ENO  IF 
END  IF 
ENO  IF 

1101  CONTINUE 

IF  (LCOUNT  .EQ.  1)  THEN 

IF  ((ISQIT  iEQ.  1)  .OR.  (KSCAN  .EQ.  6))  THEN 
IF  (TE  .GT.  43)  THEN 

KSCAN  a  0  i 

KTRIAL  «  0 
ISQIT  «  0 
ISTATE  «  4 
ICLOCK  a  TE  -  43 
OORSUH  «  DORSUM  9  1 
ELSE  IF  (ISQIT  .EQ.1)  THEN 
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•  •• 

0 1  SHOO 

«*• 

* 

7 

342. 

I  ST  A  T  E  ■  3 

7 

343. 

{CLOCK  *  0 

< 

7 

344. 

KSC AN  *  0 

7 

345. 

KTRIAL  «  0 

7 

344. 

ISQXT  -  0 

7 

347. 

END  IF 

4 

344. 

ELSE 

4 

349. 

ISQIT  >  1 

4 

350. 

END  IF 

5 

351. 

END  IF 

4 

352. 

ENO  IF 

3 

353. 

ENO  IF 

, 

2 

354. 

ELSE  IF  (ISTATE.EQ.3)  THEN 

8  ROLL  CALL  STATE 

2 

355. 

KSCAN  «  KSCAN  9  1 

2 

354. 

NROL  «  HAUL  9  1 

R  ROLL  CALL  COUNTER 

l > 

2 

357. 

IF  (KSCAN  .fit.  10)  THEN 

3 

358. 

ISTATE  ■  1 

a  RACK  TO  SQUITTER 

J 

3 

359. 

ICLOCK  «  14 

; 

3 

340. 

KTRIAL  «  0 

a  ZERO  TRIAL 

3 

341. 

KSCAN  ■  0 

a  ZERO  SCAN 

3 

342. 

ISQIT  ■  0 

3 

343. 

ELSE 

? 

3 

344. 

ITRY  ■  IROL'(KSCAN) 

; 

3 

345. 

00  401  L  -  1*  ITRY 

a  DO  UNTIL  A  REFLY  IS  RECEIVED 

*■ 

4 

344. 

CALL  RANN(RAN) 

4 

347. 

IPLUS  «  IFLUS  ♦  1 

4 

348. 

ITOKLFLUS  ♦  1)  ■  3 

4 

349. 

IF  (INT(CS).EQ.INT(CN1>>  ITOBILFLUSH )  *  1 

4 

370. 

ROLSUH  ■  ROLSUN  9  1 

a  MODE  $  INTERROGATION 

* 

4 

371. 

C 

RATE  COUNTER 

: 

4 

372. 

ORATE(II)  «  ORATE(II)  9  1 

a  ROLL  CALL  INTERROGATION 

4 

373. 

C 

RATE  COUNTER 

4 

374. 

IF  (PNI.QE. JSENS(K))  THEN 

5 

375. 

OINTRT(K)  ■  DINTRTIK)  9  1 

3 

374. 

IF  (RAN. LE. FOCI)  THEN 

a  SUCCESSFUL  RECEPTION  OF 

z 

4 

377. 

KSCAN  *  0 

a  REPLY 

■ 

4 

378. 

IF  (TE.GT.40)  THEN 

t 

7 

379. 

ISTATE  •  4 

J 

7 

380. 

DORSUM  ■  DORSUM  91 

7 

381. 

ICLOCK  «  TE  -  40 

7 

382. 

ENO  IF 

4 

383. 

CO  TO  402 

4 

384. 

ENO  IF 

5 

385. 

END  IF  • 

1 

4 

384. 

401 

CONTINUE 

3 

387. 

402 

CONTINUE 

i 

3 

388. 

ENO  IF 

2 

389. 

ELSE  IF  (ISTATE. EQ.4)  THEN 

a  OORMANCV  STATE 

2 

390. 

ICLOCK  «  ICLOCK  -  1 

2 

391. 

MOOR  *  MOOR  9  1 

a  DORMANCY  COUNTER 

2 

392. 

IF  (ICLOCK. EQ.O)  THEN 

3 

393. 

ISTATE  »  1 

a  BACK  TO  SQUITTER 

;; 

3 

394. 

ICLOCK  *  14 

3 

395. 

KTRIAL  «  0 

1 

3 

396. 

KSCAN  *  0 

3 

397. 

ISQIT  ■  0 

3 

398. 

ENO  IF 

z 

2 

399. 

ENO  IF 

1 

400. 

FLOdO/8/ IT R ACM  11/ IF) )  =  ICLOCK 
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OI&HOO  »** 

401  •  FL0<ie/4,ITRACK<IX/IF>>  ■  ISTATE 

to?.  -  fio<22/3/Itrack<ii/If>>  «  mm 

401.  FL0<  25/4/ITRACM  I  iV  IF))  >  KSCAN 

404.  FL0(?9/1/ITRACX(II/IF>>  «' ISOIT 

405.  F  1.0(31/1/ IT  RACK(XX/1F>)  *  0 

406.  LPLUS  «  l PLUS  t  IFLUS 

407.  IPLUSI  *  LFLUS 

408.  20  CONTINUE  - 

409.  RETURN 

410.  ENO  ' 
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3FTN/S  8. FILES/FILES 

FTN  11R1  02/27/85-18:35(39#) 


1. 

2. 

C 

SUBROUTINE  FILES 

1 

3. 

4. 

c 

C 

THE  FUNCTION  OF  THIS 

SUBROUTINE 

IS  TO  CREATE  A  FILE  TO  BE  USEO  AS 

5. 

C 

INPUT  DATA  TO 

THE  0ABS/ATCR8S/AIMS 

PPM  WHICH  WILL  OETERMINE  THE  NET . 

6. 

7  _ 

c 

EFFECTS  OF  OEFLOTING  TCAS  SYSTEMS 

IN  THE  ENVIRONMENT. 

8. 

C 

10. 

C 

COMMON  BLOCKS 

/  VARIABLES 

11. 

c 

INPUTS 

OUTPUTS 

DESCRIPTION 

12. 

c 

13. 

c 

ATE 

/  ORATE 

TOTAL  INTERROGATIONS  REC'D  BT  TCAS  1IH 

14. 

c 

CAS 

/  NAC 

NUMBER  OF  AIRCRAFT 

15. 

c 

ILNS 

/  KCARR 

NUMBER  OF  M-S  LEVELS  TCAS  IIH  IS  USING 

16. 

c 

MISAD 

7 

MIS 

MODE  S  MISAOORESSES 

17. 

c 

SETA 

/ 

ADRESS 

MODE  S  ADDRESSES 

18. 

c 

TCOATA 

/ 

IATIN 

ATCRBS  INTERROGATIONS  OUE  TO  TCAS  II  M 

19. 

c 

IATSU 

ATCRBS  SUPPRESSIONS  OUE  TO  TCAS  II  M 

20. 

c 

IOABN 

MODE  S  INTERROGATIONS  OUE  TO  TCAS  II  H 

21. 

c 

IDABS 

MODE  S  SUPPRESSIONS  OUE  TO  TCAS  II  N 

22. 

c 

TCRAT1 

/ 

ATCRAT 

TCAS  I  INTERROGATIONS  AT  EACH  AIRCRAFT 

23. 

c 

24. 

c 

25. 

INCLUOE  RESTART#LIST 

1.1  PARAMETER  (NUAIR  -  328) 

2.1  C 

3.1  C  THE  LOGICAL  VARIABLE  FRINT/  WHEN  FALSE#  HILL  SUFFRESS  ALL  WRITE 
A. I  C  STATEMENTS  IN  THE  MODEL. 

5.1  C 


4.1 

7.1 

8.1 
9.1 

10.1 

11.1 

26. 

27. 

28. 

29. 

30. 

31. 

32. 

33. 

34. 

35. 

36. 

37. 

38. 

39. 

40. 

41. 

42. 

43. 

44. 

45. 

46. 


LOGICAL  FRINT 

OIMENSION  TJFILE(NUAIR#8)#  I JFILE(NUAIR#S)#  ICASFI(83#NUAIR#1) 
COMMON  /TCOATA/  1111(83)#  0ENS(83># 

1  lATIN(NUAIR)#  lATSU(NUAIR)#  lOAIM(NUAIR)#  lOABS(NUAIR) 
EQUIVALENCE  (TJFILE#IJFILE) 

COMMON  / CAS/  ICASFI#  TJFILE#  NAC#  II#  FRINT 
CQMM0N/ILMS/KCARR(83)#AMSP(B3)#IRESET(83) 

COMMON/ ATE /OR ATE (83) 

COMMON/MI  SAD/MI S(NUAIR) 

COMMON/ SET A/ AORESS(NUAIR) 

COMMON/ SENS/ J SENS (NUAZR) 

COMMON/ TC A A/NUMTCA 

CQMMON/TEHP/ITIME 

COMMON/TCRAT1/ATCRAT(NUAIR) 

KF  •  0 


00  2023  KE  >  1#  NAC 

IF  (IJFILE(KE#4).EQ.3)  THEN 
KF  «  KF  ♦  1 

AMTSUF  -  60.*KCARR(KF)  ♦  1 00. *ORATE (KF ) 

ELSE 

AMTSUF  ■  0. 

ENO  IF 

WRITE  (10#2025)  HIS(KE) #IOABS(KE) #IDA6N(KE)#IATIN(KE)# 
?  I ATSU(KE)#AORESS(KE>#  AMTSUP#ATCRAT(KE) 

2025  FORMAT (10X#5I15#F10.5#2X#F10.3#2X#F1 0.3) 


I 
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***  files  *** 

1  47.  2023  CONTINUE 

1  48.  C 

49.  RETURN 

30.  END 

END  FTN  64  IBANK  107  OBANK  32975  COMMON 
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FRUIT* 


3FTN/S  B. FRUIT*/ FRUIT  * 


FTN  1 1 R 1 


02/27/85- 16s35t60>) 


8.1 

9.1 

10.1 

11.1 

33. 

3A. 

35. 

36. 

37. 

38. 

39. 
AO. 
A1. 
A2. 
A3. 
AA. 
A5. 
A6. 


1. 

SUBROUTINE 

FRUITA 

3. 

C 

THE  PURPOSE 

OF  THIS  SUBROUTINE  IS  TO 

COMPUTE  FRUIT  RECEIVED  AT  EACH 

A. 

C 

TCAS  AIRCRAFT/  AND  TO 

COMPUTE  THE 

PROBABILITY  OF  REPLY 

5. 

C 

FOR  EACH 

AIRCRAFT. 

7. 

8. 

9. 

c 

***** 

C 

COMMON  BLOCKS  /  VARIABLES 

10. 

c 

INPUTS 

OUTPUTS 

DESCRIPTION 

11. 

c 

12. 

c 

CAS 

/  ICASFI 

TCAS  II  M  ENVIRONMENTAL  FILE 

13. 

c 

II 

TCAS  II  M  IOENTITY 

1 A  . 

c 

IJFILE 

A/C  CHARACTERISTICS  FILE 

15. 

c 

NAC 

NUMBER  OF  A/C 

16. 

c 

FRUT 

/ 

FRUIT; 

FRUIT  SEEN  BY  EACH  TCAS  II  M  A/C 

17. 

c 

MISAO 

/  MIS 

HIS 

MISADDRESSES 

18. 

c 

RATE 

/  IAOJIN 

INTERROGATION  RATE  FOR  EACH  A/C 

19. 

c 

IAOJSU 

SUPPRESSION  RATE  FOR  EACH  A/C 

20. 

c 

SENS 

/  JSENS 

SENSITIVITY  LEVEL  FOR  EACH  A/C 

21. 

c 

TCOAT A 

/  mi 

* 

TCAS  II  M  POINTER 

22. 

c 

IATIN 

ATCRBS  INTERROGATIONS  OUE.  TO 

23. 

c 

TCAS  II  M  A/C 

2A. 

c 

IATSU 

ATCRBS  SUPPRESSIONS  OUE  TO 

25. 

c 

TCAS  II  M  A/C 

26. 

c 

IOABN 

.  MOOE  S  INTERROGATIONS 

27. 

c 

I0A8S 

MOOE  S  SUPPRESSIONS 

28. 

c 

TPREPL 

/ 

PREP 

PROBABILITY  OF  REPLY  FOR  EACH  A/C 

29. 

c 

TRAX 

/  JTRANS 

TRANSMISSION  POWER  FOR  EACH  A/C 

30. 

c 

31. 

e 

. 

32. 

INCLUDE  RESTART/LIST 

1.1 

PARAMETER  (NUAIR  »  328) 

2.1 

c 

y 

3.1 

c 

THE  LOGICAL 

VARIABLE  PRINT/  WHEN  FALSE/  WILL  SUPPRESS  ALL  WRITE 

A. I 

c 

STATEMENTS 

IN  THE  MOOEL. 

5.1 

c 

6.1 

LOGICAL  PRINT 

7.1 

DIMENSION  TJFILE (NUAIR/8) 

/  I JFILE(NUAIR/8)/  ICASFK83/NUAIR/1) 

COMMON  /TCOATA/  1111(83)/  0ENS(83)/ 

1  lATIN(NUAIR) /  IATSUINUAIR)/.  IOABN(NUAIR)/ 
EQUIVALENCE  (TJFILE/IJFILE) 

COMMON  /CAS /  ICASFI/  TJFILE/  MAC/  II/  PRINT 
INTEGER  STAT(2/NU*IR)/KHIS(NUAIR) 
COMMON/RATE/ IADJIN(NUAIR)/IAOJSU(NUAIR)  ' 
COMHON/FRUT/ FRUIT (83) 

COMMON/M IS AO/MI S (NU AIR)  ‘ 

COMMON/ TPREPL/RREPtNUA I R) 

COMMON/ TR AX/ JTRANS(NUAIR) 

COMMON/SENS/ JSENS(NUAIR) 


IOABS(NUAIR) 


DELETE  THE  FOLLOWING  COMMON  STMT  AFTER  TESTING 
COMMON/TEMP/ITIME  '  ' 


DEFINE  FLOU/J/K)  *  BITS(K/I*1/ J) 
IF  (II  .EQ.  1)  THEN 


8  AT  THE  BEGINNING  OF  EACH  NEW  SEARCH 
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FRUIT* 


47. 

*9. 

*9. 

50. 

51. 

52. 
55. 

54. 

55. 

56. 

57. 

58. 

59. 

60. 
61. 
62. 
65. 

64. 

65. 

66. 

67. 

68. 

69. 

70. 

71. 

72. 
75. 

74. 

75. 

76. 

77. 

78. 

79. 

80. 
81. 
82. 
85. 

84. 

85. 

86. 

87. 

88. 

89. 

90. 

91. 

92. 
95. 

94. 

95. 

96. 

97. 

98. 

99. 
100. 
101. 
102. 
105. 

104. 

105. 


00  1  1*1,  NUAIR 

KM1S(I)  «  MIS(I) 

IF  (1JFILE(1,4)  .EQ.  0)  THEN 
STAT(1,I)  *  lATIN(I) 
$TAT(2,I)  *  IATSUCI) 

ELSE 

STATU, l>  >  lOABN(T) 
STAT(2,1)  *  I0A8$(I) 

ENO  IF 
CONTINUE 
ENO  IF 

GET  IOENTITT  OF  TCAS  II  N  AIRCRAFT. 
I HOLD  *  1111(11) 

FRUIT(II)  *  0 

00  6000  IQ  «  1#  NAC 


a  CYCLE,  SAVE  MISADORESSEO, 
a  INTERROGATION,  AND  SUPPRESSION 
8  RATES  FROM  PREVIOUS  SECOND. 


a  SELECT  A  VICTIM  AIRCRAFT. 


CHECK  THAT  VICTIM  AIRCRAFT  IS  WITHIN  RANGE: 
IF  (1CASFI(I1,IQ,1>.EQ.0)  GO  TO  6000 


ITT  *  FL0(54,2,ICASFI(II,XQ,1>>  » 

FLUI  *  STAT(1,IQ)  8 

PLUS  *  STAY (2, IQ)  8 

IF  (ITT  .EQ.  0)  THEN  8 

0E01  »  FLUI  *  0.000060  8 

ASUP  *  0.00003S  a 

ELSE 

OEOt  «  PLUI  *  0.000024  a 

asup  *  0.000020  a 

ENO  IF 

TOTAL  SUPPRESSION  TIME  OUE  TO  GROUND  ATC  (IADJSU)  AND  TCAS 
EMISSIONS  (ADDRESSES  AND  MISADDRESSES): 

OEAOI  •  I AO JIN ( IQ )• 0.000060  ♦  DEDI 

OEAOS  *  IA0JSU(IQ)*0. 000035  ♦  PLUS*0. 000035  ♦  KMIS(IQ)*ASUP 
OEAOT  ■  OEAOI  ♦  OEAOS  8  TOTAL  DEAD  TIME 

(INTERROGATION  ♦  SUPPRESSION) 
PREP(IQ)«1-0E*DT  a  PROBABILITY  OF  REPLY 

(1  -  TOTAL  DEAO  TIME) 

ANTENNA  COUPLINGS  BETWEEN  TCAS  II  M  AND  VICTIM  AIRCRAFT  FOLLOW.  THE 
FACTOR  OF  2**27  SHIFTS  BITS  UP  AND  THEN  BACK  DOWN  AGAIN  TO  RECOVER  THE 
SIGN  BIT. 


FIND  VICTIM  AIRCRAFT  TYPE 
NUMBER  OF  INTERROGATIONS  RECEIVEO 
NUMBER  OF  SUPPRESSIONS  RECEIVED 
ATCRBS  A/C 

DEAO  TIME  IS  60  MICROSECONDS 
SUPPRESSION  TIME  IS  35  MICROSECONOS 

DEAD  TINE  IS  24  MICROSECONDS 
SUPPRESSION  TINE  IS  20  MICROSECONOS 


II  N 


I1*(FL0(0,9,  IJFILEdQ, 9)  >*2**27) 
t2*(FLO(9,9,IJFILE(IQ,8>)*2**27) 
13*  (FLO  (18, 9,  IJFILEdQ,  8)  )  *2**27) 

11  *  11/2**27 

12  *  12/2**27 

13  «  13/2**27 

GS  *  11/10.0  ♦  4.7  -  1.9 
IF  ((13/10.0*4. 7-1. 9). GT.GS)  GS  « 
GV  *  12/10.0 
GSUM  *  GS  ♦  GV 
IPOW  *  FL0(17,10,ICASFI(I!,IQ,1)) 


8  TOP  ANTENNA  GAIN 
8  BOTTOM  ANTENNA  GAIN 
8  TOP  ANTENNA  GAIN 


a  MODE  S  POWER  ADJUSTMENT 
13/10.0  ♦  4.7  -  1.9 


3  ANTENNA  COUPLING. 

8  POWER  CONPUTEO  BETWEEN  TCAS  II  H 
PWR  *  IPOW  3  VICTIM  AIRCRAFT 

PWR  *  -(PWR/10.)  ♦  10. *ALOG10(JTRANS(IQ)/1000000.)-0. 7-0. 5-3.0 
TCAS  II  M  REPLY  POWER: 

IF  (IJFILEdQ, 4). EQ. 5)  PWR  *  PWR  -  2.2 

PWR  *  PWR  *  GSUM  3  TOTAL  POWER 

IF  (PWR.GE. JSENS(IHOLD))  THEN 
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***  FRUITS  •** 


2 

2 

2 

2 

2 

1 


106.  IF  (ITT  .NE.  0)  PLUI  «  0 

107.  C  COMPUTE  AND  STORE  FRUIT  RATE: 

108.  FRTRAT  *  PREPCI0)*IADJIN(10)  ♦  PREP(IQ)*PLUI 

109.  FRUrt(II)  «  FRUimi)  ♦  FRTRAT 

110.  END  IF 

111.  6000  CONTINUE 

112.  RETURN 

113.  END 


ENO  FTN  351  IBANK  1073  OBANK  33381  COMMON 
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•**  rtlATPW  «»» 

iFTN.S  A.HIATPW/A. 

FIN  1 IRttRlA  05/30/85-1 3:1 5(6#) 

1.  FUNCTION  HIATPW(NWSL) 

2.  * 

3.  *  THIS  FUNCTION  DETERMINE  THE  HIGHEST  ATCRBS  W-S  LEVEL  SENT  WHEN  A  TOTAL 

A.  *  OF  NWSL  ARE  TRANSMITTED. 

5.  * 

6.  *  FIND  THE  HIGHEST  POWER  LEVEL  (IN  08M)  SENT 

7.  » 

3.  IHIPRI  ■  83  -  NWSL  H  »  PRIORITY  OF  HIGHEST  LEVEL  SENT 

9.  If l  IHIPRI  .LE.  63)  THEN 

1  10.  POWLEV  «  49  “  (IHIPRI  ♦  2)/4  R  HIGHEST  POWER  SENT  BY  TOP  FRNT  ANTENN 

1  11.  ELSE  IF(  IHIPRI  .LE.  BO)  THEN 

1  12.  POWLEV  *  36  B  HIGHEST  POWER  SENT  BY  BOTTOM 

1  13.  ELSE 

1  14.  POWLEV  *  36  -  2*{IHIPRI  -  BO) 

1  IS.  ENO  IF 

1  1<*.  * 

1  17.  *  CONVERT  POWLEV  TO  WATTS 

1  1*.  * 

19.  HIATPW  *  1 0. *»( ( POWLEV F6-30)/1 0. )  a  POWLEV  (OBM)  4  4  OBI  -  30  OBN  TO  NW 

20.  * 

21.  RETURN 

22.  ENO 

END  FTN  64  IBANK  21  OBANK 


aHOG.P  **♦ 


FILES 


ft** 
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***  INIT  *** 


8FTN/S  B.INIT/INIT 

FTN  11R1  02/27/85-16:3507#) 

1.  SUBROUTINE  INIT 

2.  C  ' 

3.  C  THIS  SUBROUTINE  SETS  UR  INITIAL  VALUFS  FOR  ALL  THE  COMMON 

A.  C  VARIABLES  TO  BE  USED  IN  THE  MODEL.  OETAILEO  DESCRIPTIONS  OF  ALL 

5.  C  THE  VARIABLES  ARE  CONTAINED  IN  THE  DATA  DICTIONARY  OF  THE  TCAS 

6.  C  SIGNAL  ENVIRONMENT  MODEL  BY  C.  GILCHRIST  AND  G.  PATRICK  ., 

7.  C  . 

B.  INCLUOE  RESTART#  LIST 

9.  C 

1.1  PARAMETER  (NUAIR  *  328) 

2.1  C 

3.1  C  THE  LOGICAL  VARIABLE  PRINT#  WHEN  FALSE#  HILL  SUPPRESS  ALL  URITE 

A. I  C  STATEMENTS  IN  THE  MODEL. 

5.1  C 


1 

1 

1 


6.1 

7.1 

5.1 

9.1 
10.1 
11.1 
10. 
11. 
12. 
13.- 
1A. 

15. 

16. 

17. 

18. 

19. 

20. 
21. 
22. 
23. 
2A. 

25. 

26. 

27. 

28. 

29. 

30. 

31. 

32. 

33. 
3A. 

35. 

36. 

37. 

38. 

39. 
AO. 
A1 . 
A2. 
A3. 
AA. 
A5. 
Ai. 


LOGICAL  PRINT 

DIMENSION  TJFILECNUAIR/8)#  IJFILE(NUAIR#8)#  ICASFI(83#NUAIR#1) 
COMMON  /TCDATA/  1111(83)#  DENS(83)# 

T  lATIN(NUAIR)#  IATSU(NUAIR)#  IOABN (NUAIR)#  IDABS(NUAIR) 
EQUIVALENCE  (TJFILE/IJFILE) 

COMMON  /CAS/  ICASFI#  TJFILE#  NAC#  II#  PRINT 
COMMON  /AOJSEN/  SESXT(83) 

COMMON  /ANTENN/  A2PAT(36>#  0IFPAT(36) 

COMMON  /ANTO/  P*STQP(19>#  PASB0TM9) 

COMMON  / ANTT/  ANTTOP  (19)/  ANTB0TO9) 

COMMON  /ATE/  0RATE(83> 

COMMON  /BBBEAR/  TLAT#  TLGN/RLAT#  RLON#  DIST#  BEARTX 
COMMON  /OPLYNT/  IATCR#  IOAB#  ITCA 
COMMON  /F RUT/  FRUIT(83) 

COMMON  /ILMS/  KCARR(lS)/  ANSP(83>#  IRESET(B3> 

COMMON  /LEVEL/  ISETA#  UMAX#  KMAX#  TPOU#  PNAX 
COMMON  /LEVEL2/  ICHEK 
COMMON  /MISAO/  MIS(NUAIR) 

COMMON  / ONT/  OINTRT(NUAIR) #  UPRATE(NUAIR),  AHEAN (200)#  AS0E(200) 
COMMON  /RATE/  IAOJXN(NUAIR)#  IAO JSU(NUAIR) 

COMMON  /RCACQ/  ITRIL1(6)>  ITRIL2(6)#  ITRIL3(6)#  ITRILA(6)# 

1  IROL(IO) 

COMMON  /ROLACQ/  ROLSUM#  ACQSUM#  OORSUN#  MROL#  MAO/  MOOR#  MSO# 

1  NULL 

COMMON  /SENS/  JSENS(NUAIR) 

COMMON  /SETA/  ADRESS(NUAIR) 

COMMON  /SINT/  LPLUS#  K#  ITOB(IOO) 

COMMON  /SMOOTH/  N0M(83)#  TIS(83)#  TPS(83) 

COMMON  /SURV/  ITRACK (83/500) 

COMMON  /TCAA/  NUMTC A 

COMMON  /TCRAT1/  ATCRAT (NUAIR) , 

COMMON  /TEMP/  iTTME 
COMMON  /TPREPL/  PREP (NUAIR) 

COMMON  /TRAN/  TCST(S3) 

COMMON  /TRAX/  JTRANS(NUAIR) 

COMMON  /WSCAR/  ILWS(83) 

COMMON  /USHOUT/  IPRF(24)#  IPRS(AO)#  IPRB(15)#  IPR80T(6)# 

1  IP0NF(24) #  IRONS (41 )/  IPOUB(IS)#  IP0MB0(4) 

00  200  I  *  1#  83 
SESIT(I)  *  0. 

ORATE(I)  *  0. 

FRUIT (I)  «  0. 
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47. 

48. 

49. 

50. 

51. 

52. 
55. 

54. 

55. 

56. 

57. 

58. 

59. 

60. 
61. 
62. 
65. 

64. 

65. 

66. 
67. 
eB. 

69. 

70. 

71. 

72. 

73. 

74. 

75. 

76. 

77. 

78. 

79. 

80. 
81. 
82. 

83. 

84. 

85. 

86. 

87. 

88. 

89. 

90. 

91. 

92. 

93. 

94. 

95. 

96. 

97. 

98. 

99. 
100. 
101. 
102. 

103. 

104. 

105. 


KCARR(I)  »  83 
■  ANSP(I)  •  0. 

ISESET(I)  ■  0 
NOW ( I )  «  0 

TIS(I)  ■  0. 

TPS(I)  *  0. 

1111(1)  «  0 

TCST(I)  «  0. 

ILUS(X)  «  0 
OENS(X)  >  0. 

If  (I  .LT.  42)  IPOHS(I)  •  0 
C 

DO  300  J  ■  1/  NUAIR 
ICASFId/ J/1 )  »  0 
300  CONTINUE 

00  375  J  ■  la  500 

ITRACKdaJ)  «  0 
375  CONTINUE 

200  CONTINUE 
C 

00  400  I  «  1*  NUAIR 

MISd)  «  0 

OINTRTd)  «  0. 

UPRATEd)  «  0. 

IAOJXN(I)  >  0 
XAOJSU(I)  -  0 
JSENS(X)  »  0 
AORESS(X)  •  0. 

XATIN(I)  «  0 
IATSU(X)  a  0 
IOABN(l)  a  0 
XOABS(I)  >  0 
ATCRAT(X)  a  0. 

PREP(X)  ■  0. 

JTRANS(I)  >  0 
00  500  J  «  1#  8 

TJf ILE(XrJ)  a  0. 

500  CONTINUE 

400  CONTINUE 
C 

00  600  I  a  1 ,  200 

AMEAN(I)  a  0. 

ASOE(I)  a  0. 

If  (I  .IE.  100)  XTOB(t)  «  0 
600  CONTINUE 
C 

00  700  I  «  1/  24 

IPOWf(I)  >  0 

If  (I.LE.15)  IPOWB(l)  >  0 
700  CONTINUE 
C 

TLAT  «  0.0 
TLON  *  0.0 
RLAT  a  0.0 
RLON  >  0.0 
OIST  a  0.0 
BEARTX  «  0.0 
NAC  *  0 
IATCR  *  0 
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106. 

ior. 

106. 

109. 

110. 

111. 

112. 

111. 

11*. 

111. 

116. 

117. 

118. 

119. 

120. 

121. 

122. 

121. 

12*. 

125. 

126.  C 

127. 

128. 

129. 

110. 

111. 

132. 

133. 

13*. 

135. 

136. 

137. 

138. 

139. 

1*0. 

1*1. 

1*2. 

1*3. 

1**. 

1*5. 

1*6. 

1*7. 

1*8. 

1*9. 

150. 

151. 

152. 

153. 

15*. 

155. 


I0AB  *  0 
ITCA  *  0 
ISETA  «  0 
JMAX  «  0 
UMAX  *  0 
TPQH  «  0.0 
PNAX  *  0.0 
ICHEK  »  0 
ROLSUN  «  0.0 
ACQSUN  «  0.0 
OORSUH  «  0.0 
HROL  ■  0 
MAO  *  0 
MOOR  *  0 
MSQ  »  0 
NUU  «  0 
LPLUS  «  0 
K  »  0 
NUNTCA  *  0 
ITIME  »  0 

DATA  (ANTTOP(I)*I*1*19)/-31.1*-16.3»-8.5/-6.0/-4.0*-3.0*-2.0/0.0 
**0.0*-5.0*-8.0*-12.0*-16.0*-17.0*-18.0*-21.0*-25.0*-31.0*-32.07 
DATA  ( ANTBOTII ) *  1*1 *19) /-12.0*-31 .0*-2 5. 0**21. 0/ -1 8. 0/-17.0/-1 6.0* 
*-12. 0**8. 0*-5. 0*0. 0*0. 0**2. 0**3. 0**4. 0**6. 0**8. 5**1 6. 3**31. 3/ 

OATA  ( ITRIL1 (I)*I*1*6) /3*1*3*0*0*0/ 

OATA  (ITRIL2 (I) *1*1 *6) 72*2*2*0*0*0/ 

OATA  (ITRIL3(I)*I"1*6)/1*1*1*0*0*0/ 

OATA  <XTRIL4<n*I*i*6>/1*0*0*0*0*0/ 

OATA  <IR0L<X)*X-1*10>/5*.4*3*2*2*2*2*2*2*27 

OATA  <A2PAT<X)*X*1*36)/0.*3.*0.*1 .*2. **.*6. *9. *15. *27. *23. *16.* 
*13. *12. *11. *11. *11. *11. *11. *11. *10. *10. *10. *11. *12. *16.* 

*  25. *22. *13. *8. *5. *3. *2. *1. *0.*0.7 
DATA  (DIFPAT<X>*X-1*36)/12.*12.*12.*13.*13.*11.#9.*6.*4.r3.*2.* 
*2.»1 .*1.*1.*1.*1.*1.*1.*1.*1.*1.*1.*1.*1 .*1 .*2. *3. *4. *6. *8.* 

*11.* 13. *14. *13. *13.7 

OATA  <PA$TaP<I)*I*1*19>/-:31.3*-16.  3**8. 5**2. 8**0. 3*1. 3/2. 0*2. 5* 

*2. 5*1. 0**0. 5**3. 0**7. 0**1 1.0* *14 .5**17. 0**1 8 .0**31 .0**32.07 
OATA  <PASBaT<I)*I>1*19)/*32.0**31.0*-18.0*-17.0**14.5**11.0**7.0 
**“3.0*"0.5*1 .0*2i 5*  2.5* 2.0*1 .1**0. 3**2. 8**8. 5**1 6. 3**31 .3/ 

OATA  (XPRF(X) *1*1*24)/ 1*5*9* 13*1 7*21 *25* 29*33*37*41 *45*49* 53 
**57*61*64*67*70*73*76*77*78*797 
OATA  ( IFRS (I)*I*1*40) 7 2*3*6*7*10* 11*1 4*1 5*1 8* 19. -2 2* 23*36 *27* 
*30*31*34*35*38*39*42*43*46*47*50*51*54*55*58*59*62*63*65*66* 
•68*69*71*72*74*757 

OATA  (IPRB(X)*I«1 *15)74*8*12*16*20*24*28*32*36*40*44*48* 52*56*607 
OATA  (IPR80T(I)*I«1*4)780* 81*82/837 
OATA  (IP0W80(X)*I*1*4)/0*  0*  0*  07 
RETURN. 

ENO 
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INPUT 


*** 


8FTN/S  B. INPUT/ INPUT 

PTN  1 1R1  02/27/85-14:15(9/) 


9.1 

10.1 

11.1 

22. 

25. 

2  4. 

25. 

26. 

27. 

28. 

29. 

30. 

31. 

32. 

33. 
36, 

35. 

36. 

37. 

38. 

39. 
60. 
61. 
62. 
63. 
46. 

45. 

46. 


VXW- 


1. 

SUBROUTINE  INPUT 

3. 

C 

THE  FUNCTION  OF  THIS  SUBROUTINE  IS 

TO  LOAO  CHARACTERTICS  FROM  L.  A.' 

4. 

C 

BASIN  MOOEL  AND  RATES 

GENERATED 

FROM 

DABS/  ATCRBS/  AIMS/  PPM  FOR 

5. 

C 

EACH  TRANSPONOER. 

7. 

C 

INPUTS  / 

9. 

C 

COMMON  BLOCKS  /  VARIABLES 

10. 

C 

INPUTS 

OUTPUTS 

DESCRIPTION 

11. 

c 

12. 

f 

v  CAS  / 

IJFILE 

TYPE  OF  EACH  AIRCRAFT 

13. 

C 

NAC 

NUMBER  OF  AIRCRAFT 

14. 

c 

TJF1LE 

AIRCRAFT  CHARACTERISTICS 

15. 

c 

OPLYMT  / 

IATCR 

t 

NUMBER  OF  ATCRBS  A/C 

16. 

c 

IDAB 

NUMBER  OF  HDOE  S  A/C 

17. 

c 

XTCA 

NUMBER  OF  TCAS  II  M  A/C 

18. 

c 

RATE  / 

XADJIN 

INTERROGATION  RATES  FDR  EACH  A/C 

19. 

c 

IADJSU 

SUPPRESSION  RATES  FOR  EACH  A/C 

20. 

c 

21. 

INCLUDE  RESTART/LIST 

1.1 

PARAMETER  (NUAIR  ■  328) 

2^1 

c 

3.1 

c 

THE  LOGICAL  VARIABLE  PRINT/  NHEN  FALSE/ 

HILL  SUPPRESS  ALL  HRITE 

4.1 

c 

STATEMENTS  IN  THE  MOOEL. 

5.1 

c 

6.1 

LOGICAL  PRINT 

7.1 

DIMENSION  TJPILE (NUAIR/ 8) 

/  IJFILE (NUAIR/B)/  ICASrI(83/NUAIR/1 ) 

8.1 

COMMON  /TCOATA/  1111(83)/ 

0ENS(83)/ 

T  I ATIN(NUAIR)/  XATSU(NUAIR)/  IOABN(NUAIR)/  IOABS(NUAIR) 

EQUIVALENCE  (TJFILE/IJPILE) 

COMMON  /CAS/  ICASFI/  TJPILE/  NAC/  XI/  PRINT 
DIMENSION  IATINR(NUAIR)/ ISUPRT (NUAIR) 

COMMON/RATE/ XAOJIN(NUAIR)/ I AOJSU(NUAIR) 

CHARACTER»4  5/ E/TTPE/L ATt/LONB 
EQUIVALENCE  (TTPE/ITTPE)/ (NAC/N) 

COHMON/QPLTMT/I ATCR/ IDAI/ITCA 
DATA  S2R/4.8481368E-6/ 

OATA  S 
NAC«0 

RATIO*. 420 


S  SECONOS  TO  RAOIANS 


00  100  L*1/NUA1R 


*E AO (8/1 ) I ATI NR(L) / ISUPRT (L)/ OALAT/OALON  a 


FORMAT(10X/2I10/2F10.4) 


AIRCRAFT  COUNTER. 

THIS  NUMBER  IS  (ROUGHLY)  THE 
PERCENT  OF  THE  TOTAL  DEPLOY¬ 
MENT  DESIRED.  CHANGE  THIS 
NUMBER  TO  CHANGE  THE  SIZE  OF 
THE  DEPLOYMENT. 

REAO  IN  ATC  RATES  FROM 
DABS/ATCRBS/AIMS  PPM 
INTERROGATION/  SUPPRESSION/ 
LATITUDE/  LONGITUDE 


i 


20 


REAO  THE  TRANSPONDER  CHARACTERISTICS  FROM  THE  L.  A.  BASIN  MOOEL 
REAO(5/20/ENO«140)LAB/LAM/LAS/LAT6/LOO/LOM/LOS/LON8/ ALT/TYPE/ 

OX/OV/DZ 

FORMAT(3I2/Al/ 13/212/ A1/3X/F8.0/9X/A4/1X/F6.4/1X/F6.4/1 X/F8.4) 

CALL  RANN(RAN)  S  RANDOMLY  ELIMINATE  AIRCRAFT 

IF(RAN.OE. RATIO)  GO  TO  2  3  FROM  DEPLOYMENT  TO  PRODUCE 
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47. 

C 

LONER  DENSITY  DEPLOYMENTS. 

48. 

•  I0NE«1 

49. 

CALL  FAS CFOlIONE. TYPE. TYPE) 

8 

CONVERTS  TYPE  FROM  ASCII  TO 

50. 

C 

1 

FIELOATA. 

51. 

CALL  CNVRT(ITYPE) 

8 

CONVERTS  TYPE  FROM  FIELOATA 

52. 

C 

TO  INTEGER. 

53. 

RLAT*( (LAO *3600) *(LAM»6Q)*LAS)*S2R 

8 

LATITUDE  IN  RADIANS. 

54. 

RLON«((LOO*3600)*(LON*60)*LOS)*S2R 

a 

LONGITUDE  IN  RADIANS. 

55. 

IF(LATB(1:1).EQ.S(1i t))RLAT*-RLAT 

8 

DETERMINE  LOCATION 

56. 

c 

• 

(N/S  AND  E/M). 

57. 

IF(L0N8(1:1).EQ.E(1:1>)RL0N— RLON 

58. 

N«NAC*1 

8 

COUNT  »/C 

59. 

c 

60. 

c 

LOAO  POSITION.  VELOCITY.  AND  TYPE  OP  EACH 

TRANSPONOER. 

61. 

c 

62. 

TJFILE(N.1)«RLAT 

a 

LATITUDE 

63. 

TJFILE(N.2)»RL0N 

a 

LONGITUDE 

64. 

TJFILf <N.3)«ALT 

8 

ALTITUOE 

65. 

IJFILE(N.4)»ITYPE 

8 

TYPE  OF  TRANSPONOER 

66. 

TJFILE(N.5)*DX 

8 

OX  (WESTWARD  VELOCITY) 

67. 

TJFILE (N.6)*DY 

8 

OY  (NORTHUARO  VELOCITY) 

68. 

TJFILE(N.7)«OT 

a 

DZ  (UPWARD  VELOCITY) 

69. 

IF(IJFILE(N.4).EQ.O)  IATCA-IATCR+1 

COUNT  ATCRBS  TRANSPONDERS. 

70. 

IF(IJFILE(N.4).EQ.1)  I0AB-IDAB«1 

a 

COUNT  NODE  S  TRANSPONDERS. 

71. 

IF(IJFILE(N.4).EQ,3)  ITCA-ITCA+1 

COUNT  TCAS  TRANSPONDERS. 

72. 

IAOJIN(N)*IATINR(N) 

LOAO  INTERROGATION  RATES 

73. 

c 

FROM  UABS/ ATCRBS/ AIMS  PPM. 

74. 

IAOJSU(N)*ISUPRT(N) 

a 

LOAD  SUPPRESSION  RATES 

75. 

c 

FROM  OABS/ ATCRBS/ AIMS  PPN. 

74. 

c 

77. 

100 

CONTINUE 

78. 

140 

CONTINUE 

79. 

RETURN 

80. 

ENO  • 

•NON-STO  USAGE  3128  'TYPE*  EQUIVALENCES  TO  A  NONCHARACTER  ITEM 


END  FTN  1  NON-STD  USACES  183  I SANK  794  08ANK  31988  COMMON 
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BFTN,S  A. INTL I 

FTN  11R11R1A  Oa/Ol/BS-ISsOJO/,) 


1.  subroutine  inui 

2.  C 

!.  C  THE  PURPOSE  UF  THIS  SUBROUTINE  IS  TO  CHECK  THE  AMOUNT  OF  TCAS  It  N 

4.  C  INTERROGATIONS  SENT  (l)UTH  HOOF  S  ANO  ATCKBS ),  ANO  TO  DETERMINE 

5.  C  IE  ANT  OF  THE  THREE  INTERFERENCE  LIMITING  INEQUALITIES  ARE 

4.  C  VIOLATED.  IF  VIOLATEO,  PORER  ANO  SENSITIVITY  ADJUSTMENTS  ARE  , 

7.  C  POSSIBLE  ACCOROING  TO  INTERFERENCE  LIMITING  PROTOCOL.  THIS 

A.  C  SUBROUTINE  WAS  HUOELEO  ACCOROING  TO  THE  MINIMUM  OPERATIONAL 

V.  C  PERFORMANCE  STANDARDS  (MOPS). 

10.  C 

11.  c  »*.*«•»*»*. *««»«*«*  INPUTS  /  OUTPUTS  a********************************* 

12.  C 

II.  C  COMMON  BLOCKS  /  VARIABLES 

U.  C  INPUTS  OUTPUTS  DESCRIPTION 

IS.  C 

IB.  C  -AOJSEN  /  SESIT  SESIT  ’  ADJUSTED  SENSITIVITY  LEVELS  OF  TCAS  II 

17.  C  CAS  /  It  TCAS  II  N  IDENTITY 

IS.  C  ILMS  /  AMSP  AMSP  ADJUSTED  POUER  LEVELS  OF  TCAS  II  <M 

17.  C  IRESET  IRESET  16-SEC0N0  FREEZE  COUNTER 

20.  C  NWSL  .  »  M-S  LEVELS  EACH  TCAS  II  M  IS  USING 

21.  C  SENS  /  JSENS  SENSITIVITY  LEVELS  OF  ALL  AIRCRAFT 

22.  C  SMOOTH  /  NUN  NON  NUMBER  OF  TCAS  II  M  DETECTED 

21.  C  TIS  SMOOTHED  EMISSION  POWERS. 

24.  C  AVNSPU  SMOOTHED  TOTAL  MODE  S  POUER 

25.  C  TCI)  AT  A  /  Hit  TCAS  II  M  POINTER  FILE 

2e.  C  TEMP  /  IT1ME  ELAPSED  TIME 

27.  C  TRAX  /  JTRANS  TRANSMISSION  POUER  OF  ALL  AIRCRAFT 

23.  C 
29.  C 

JO.  PARAMETER  (  PMATCH  *  10.**(  (3.0>A. 71/10.)  )  U  FACTOR  FOR  MOOE  S  POUER 

11.  PARAMETER  <  PMSFAC  «  10.**(  <-4.7>/10.)  )  »  MODE  S  POU  AT  ANTENNA 

12.  PARAMETER  (  ONcOB  »  10.»*(.1)  )  a  DEFINE  1  OB 

11.  » 

14.  INCLUDE  RESTART, LIST 

1.1  PARAMETER  (NUAIR  a  743) 

2.1  C 

3.1  C  THE  LOGICAL  VARIABLE  PRINT,  WHEN  FALSE,  UILL  SUPPRESS  ALL  URITE 

4.1  C  STATEMENTS  IN  THE  MOOEL. 

5.1  C 

B. I  LOGICAL  PDISMO,PINTLI,PTCSMT,PATHOO,PDISIN,PFILES,PFRUIT,PSTATS 

7.1  COMMON  /PRToL/  POISHU,P!NILI,PTC$HT,PATMOO,PDIStN,PFILES,PFRUIT, 

B.I  2  PSTATS 

9.1  *  % 

10.1  OIMENSION  TJFILE<NUAIR,3>,  IJFILE(NUAIR,B),  ICASFI (83, NUAIR, 1 ) 

11.1  COMMON  /TCOATA/  1111(33),  DENS(SJ), 

12.1  ?  lATIN(NUAIR),  lATSU(NUAIR),  IDABN(NUAIR >,  IOABS(NUAIR) 

15. 1  EQUIVALENCE  ( T JFILE,I JFIL E ) 

14.1  COMMON  /CAS /  ICASFI,  TJFILE,  NAC,  II,  PRINT 

15.  INCLUDE  T EMP,LI ST 

1.1  COMMON  /TEMP/  ITIME 

36.  INCLUDE  ILMS, LIST 

1.1  COMMON  /ILMS/  NWSL(HJ),  AMSP(Sl),  IRESET(83),  ATSUMP(0: B3) , 

2.1  2  IRETRN,  T POU 

17.  INCLUOE  SMOOTH, LIST 

1.1  COMHON  /SMOOTH/  NQW(8J>,  AVMSPU(83),TIS(83) 

13.  INCLUOE  AOJSEN, LIST 

1.1  COMHON  /AOJSEN/  SESIT(8J> 
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5 

4 

** 

4 

3 

J 

J 

J 


39. 

1.1 

40. 

1.1 

41. 

42. 
45. 

1.1 

44. 

45. 

46. 

47. 

48. 

49. 

50. 

51. 
32. 
SI. 
54. 
53. 
SA. 
57. 
SA. 
59. 

50. 

si. 
s2. 
65. 
64. 
ft5. 
06. 
67. ■ 
oS. 
o9. 

70. 

71. 
72.. 
75. 

74. 

75. 

76. 

77. 

78. 

79. 

80. 

51. 
82. 
si. 
34  • 
35. 

j6. 

67. 

88. 

89. 

90. 

91. 

92. 
95. 
94. 


* 

* 


INCLUDE  AT  f.  .LIST 

COMMON  /Aft/  DRATLUS) 
INCLUDE  TRAK.LIST 

COMMON  / T 9 A X /  JTKANS (NUAIR) ' 
INCLUDE  SENS. LIST 


COMMON  /SENS/  JSENS(NUAIR) 
10  *  1111(11) 
IRESET(IX)*lRES£T(lt)-1 
RSEQ1  •  7. £44/(1  4  NOW(Il)  > 
RSE03  »  2. £44/(1  4  NUN (X I)  ) 


a  10  OF  TCAS  tt  N  OF  INTEREST 
a  DECREMENT  FREE2E  CLOCK 

a  2S0H  •  280  A/C  /  (1  4  NOF  TCAS  OET  «T  SO) 
a  2SQM  6  80  a/C  /  (1  4N0U) 


*  POINT  1:  ELIMINATE  W-S  STEPS  TO  STASIFT  EQUATION  5 


10  !F(  ATSUMP(NWSLdl)  )  .OT.  RSE05)  THEN 

IF (  NWSL(II)  ,E0.  0)  THEN  *  CHECK  IF  ANDT  U-S  STEP  ARE  LEFT 
IRETRN  »  0 
RETURN 
cNO  IF 

NWSL(II)  »  NMSL(Il)  -  1  a  REMOVE  1  M-S  LEVEL 

00  TO  10  a  RECHECK  EQUATION  3 

ENO  IF 

• 

*  POINT  2:  CHECK  TO  SEE  IF  1,6  SEC  FREEZE  ON  MODE  S  VARIATIONS  IS  ON 


» 


IF(  INESET(II)  .OT.  0  .AND. 
IRETRN  »  1 
RETURN. 

ELSE 


ITIME  .OT.  IS)  THEN 
a  SEE  FIGURE  3-3 

a  FREEZE  IS  OFF 


*  POINT  3:  CHECK  EQUATIONS  1.  AND  3 

* 

20  THSPOV  *  AVMSPWI II) ‘PMSFAC  a  AVERAGE  RATE  *  AVERAGE  POWER  (IN  MATTS) 

TATPOW  »  ATSUMPI  NWSL(XI).  ),  a  TOTAL, .ATCRBS  POWER 

TPOW  «  TMSPOW  4  TATPOW  W  TOTAL  POWER  RADIATED  IN  LAST  SECOND 

LSEQ2  ^  60*NMSL(II>  4  ,100*N,tfIT(TIS<  II)  )  a  *  OF  USEC  OF  SELF-SUPRESSION 

I F (  TPOW  .LT.  RSEU1  .AND.  LSEQ2  .LT.  10000)THEN  a  EQUATIONS  1  AND  2 

* 

«  POINT  4:  CHECK  TO  SEE  IF  MODE  S  RANGE  >  ATCRBS  RANGE.  SINCE  THE  RANGE  IS 

*  OIRECTLT  PROPORTIONAL  TO  THE  TX  POWER.  AND  THE  ATCRBS  SENS  IS  3  Oft  >  NODE  S 

*  SENS.  THE  EQUIVALENT  CHECK  IS  TO  SEE  IF  MODE  S  PDW  4  3  OB  >  HIGHEST  ATCRBS  W-S 
4  LEVEL  SENT.  A  FACTOR  OF  4.7  DB  MUST  BE  SUBTRACTED  FROM  THE  MODE  $  POWER  STOREO 

*  IN  AMSP(II)  TO  ACCOUNT  FOR  CABLE  GOSSES  AND  ANTENNA  GAIN  ON  THE  HORIZON.  THIS 
4  FACTOR  MINUS  THE  3  .08  OUE  TO  SENSITIVITY  DIFFERENCES  IS  THE  PARAMETER  PMATCH. 

4 

IF (  AMSP(II)*PMATCH  .GT.  HIATPW(NWSLOI))  )  THEN 

t 


4  point  5: 
* 


ADO  1  W-S  LEVEL  ANO  RECHECK  EQUATION  3 

IF <  NWSL(It)  .EQ.  83) THEN.  a  ALL  W-$  LEVELS  SENT 

IRETRN  »  2  a  SEE  FIGURE  3-3 

RETURN 
END  IF 

TATFOw  4  ATSUHPC  NWSL(II)  41)  a  ADO  W-S  LEVEL 
IF ( TAT POW  .LE.  RSEQ3)  THEN 


*  POINT  6j  CHECK  IF  AOOING  A  W-S  LEVEL  VIOLATES  EQUATIONS  1  OR  2 
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i 

vl. 

» 

A 

95. 

IPtlV  t  TAT  POW  ♦  TMSPOW 

A 

V?. 

IF  C 1 POW  .l>T.  RSE01  .OR.  LSE02A6Q  .GT. 10000) THEN 

1 

vit. 

IRETRN  3  3 

a  SEE  FIGURE  1-3 

S 

99. 

RETURN 

R  POINT  7 

5 

ION. 

ELSE 

1 

tut. 

NXSLUO  *  NUSL(tt)  ♦  1 

a  POINT  6 

5 

102. 

GO  TO  20 

a  GO  TO  POINT  3 

S 

101. 

ENO  IF 

a  ENO  FOR  POINT  6 

A 

1 0A. 

ENO  IF 

a  ENO  FOR  POINT  3 

1 

105. 

ENO  IF 

a  ENO  FOR  POINT  4 

1 

106. 

• 

1 

10/. 

* 

POINT  9:  CHECK  TO  SEE  IF  MODE  &  RANGE  CAN  HE  INCREASED 

1 

10;(. 

* 

2 

1  ov. 

POWHS  3  JTRANS(IO)/1000. 

a  MAX  MODE  S  POUER  IN  UATTS 

2 

110. 

!F(  AMSPCl)  ,LT.  POUHSUHEN 

8  INST  POU  <  MAX  POU 

1 

111. 

AHSP(II)  >  ANSPCII)  *  QNEOS 

a  1  OB  INCREASE  IN  POUER 

3 

112. 

SESIT(II)  3  SESIT(II)  -  1. 

a  1  OB  DECREASE  IN  NIL 

1 

1U. 

IRE  SET (II)  *  16 

B  POINT  IS  RESET  FREEZE 

1 

11A. 

rxETRN  3  <1 

3 

115. 

RETURN 

1 

1  to. 

ELSE 

1 

117. 

IRETRN  3  5 

1 

11a. 

RETURN 

a  POINT  11 

r 

m. 

ENO  IF 

3 

120. 

* 

2 

121. 

ELSE  a  CONE  HERE  FROH  POINT 

3  IF  IT  IS  FALSE 

2 

122. 

* 

2 

121. 

• 

POINT  12:  OOES  NUDE  S  RANGE  EXCEED  ATCRBS  RANGE 

:  t 

2 

12A. 

* 

2 

125. 

ATPU  3  HIAIPN(NUSLUI)  > 

2 

1 2o. 

ANSPU  3  ANSPCII)  3  PNATCH 

2 

127. 

c 

VPITECft.lftlAMSPCin.AHSPU/ATPU 

2 

1  2d. 

16 

FORMAT!*  IN  INTLI  LINE  125:  ANSP  ANSPU  ATPU**3F8.1) 

2 

129. 

t 

2 

no. 

IFC  AHSP(tt)*PHA!CH  .GT.  MI ATPU (NUSL(II) )  >  THEN 

1 

111. 

ANSPU!)  3  AHSP(II)  /  ONEDB 

8  1  OB  DECREASE  IN  POUER 

1 

1  12. 

SeSITCU)  3  SESIT(II)  ♦  1. 

a  1  OB  INCREASE  IN  NTL 

1 

111. 

IRESETUI)  3  16 

3  POINT  15:  FREEZE  NODE  $ 

i 

11A. 

IRETRN  3  6 

a  SEE  FIGURE  3-3 

1 

1  15. 

RETURN 

j 

116. 

FLSt 

1 

117. 

NWSKU)  3  NUSL(II)  -  1 

a  POINT  14:  DELETE  1  U-S  LEVEL 

1 

111. 

IFC  NUSLCII)  .EQ.  OITHEN 

a  NO  U-S  LEVEL  LEFT  TO  DELETE 

A 

139. 

UR  ITEC4/  *)  *  IN  IHT^t:  ALL  U-SH 

A 

no. 

2  •  LEVELS  DELETED  FOR  TCASJT  3 

‘*/II 

*t 

1A1. 

IRETRN  3  7 

A 

K2. 

RETURN 

A 

HI. 

ENO  IF 

. 

J 

1AA. 

GO  TO  20 

a  GO  TO  POINT  3 

1 

1A5. 

ENO  IF 

2 

1  Aft. 

ENO  IF 

a 

1 

1A7. 

ENO  IF 

1 

Hi. 

* 

149. 

RETURN 

150. 

ENO 

END  FIN  121  I  SANK  99  OBANK  72999  CUMNCN 
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***  LOAD  **» 


aFTN/S  B.LOAD/LOAO 

FTN  11*1  02/27/85-16:35(1$/) 


1. 

SUBROUTINE  LOAO 

3. 

C 

THE  FUNCTIONS 

OF 

THIS  SUBROUTINE 

ARE: 

* 

4. 

c 

1.  TO  UPDATE 

AIRCRAFT  POSITIONS 

5. 

C 

2.  TO  COMPUTE  THE  HEADING  OF 

EACH 

TCAS 

6. 

c 

3.  TO  UPOATE 

MODE  S  TRACK  ARRAY  (1 

TRACK)’ 

7. 

c 

4.  TO  LOAO  ARRAT  BETWEEN  TCAS 

AND 

VICTIM  AIRCRAFT  (ICASFI) 

8. 

c 

■  THAT  CONTAINS  POWER/  RANGE 

/  BEARING/  ANO  TYPE 

9. 

c 

5.  TO  COMPUTE  THE  AIR  TRAFFIC 

DENSITIES  ABOUT  EACH  TCAS. 

10. 

c 

11. 

c 

1** 

12. 

c 

13. 

c 

COMMON  BLOCKS 

/ 

VARIABLES 

14. 

c 

INPUTS  OUTPUTS 

DESCRIPTION 

15. 

c 

16. 

c 

CAS 

/ 

ICASFI 

TCAS  II  N  ENVIRONMENTAL  FILE 

17. 

c 

NAC 

NUMBER  OF  AIRCRAFT 

18. 

c 

TJFILE 

A/C  CHARACTERISTICS  FILE 

19. 

c 

SURV 

/ 

ITRACK  ITRACK 

MODE  S  TRACK  FILE 

20. 

c 

TCAA 

/ 

NUMTCA 

NUMBER  OF  TCAS  II  M  AIRCRAFT 

21. 

c 

TCOATA 

/ 

OENS 

A/C  OENSITY  ABOUT  EACH  TCAS  II  N 

22. 

c 

1111 

TCAS  II  M  POINTER  FILE 

23. 

c 

TEMP 

/ 

IT1NE 

ELAPSED  TINE  IN  SIMULATION 

24. 

c 

25. 

c 

26. 

LOGICAL  ZERO 

27.  COMMON/BBBEAR/TLAT/YLON/RLAT/RLON/OIST/BEARTX 

28.  INCLUDE  RESTART/LIST 

1.1  FARANETER  (NUAXR  »  328) 

2.1  C 

3.1  C  '  THE  LOCICAL  VARIABLE  PRlt.T/  WHEN  FALSE/  HILL  SUPPRESS  ALL  WRITE 

A. I  C  STATEMENTS  IN  THE  NOOEL. 

5.1  C 


1 

2 

2 

2 

2 

2 

1 


6.1 

7.1 

8.1 
9.1 

10.1 

11.1 

29. 

30. 

31. 

32. 

33. 

34. 

35. 

36. 

37. 

38. 

39. 

40. 

41. 

42. 

43. 

44. 

45. 

46. 


LOGICAL  PRINT 

DIMENSION  TJFILE(NU AIR/8)/  I JFILE (NUAIR/8)/  ICASF K83/NUAIR/1 ) 

COMMON  /TCOATA/  1111(83)/  0ENS(S3)/ 

T  IATIN(NUAIR)/  I ATSU(NUAIR),  IDABN(NUAIR)/  IDABS(NUAIR) 

EQUIVALENCE  (TJFILE/IJFILE) 

COMMON  /CAS/  ICASFI/  T JFILE/  NAC/  II/  PRINT 
COMMON/SURV/ITRACK(83/500) 

COMMON/ TEMP/ IT IN E 
CQMMON/TCAA/NUMTCA 
DIMENSION  THETA(S3) 

DEFINE  FLOU/J/K)-  BITSU/I-M/J) 

CF  ■  0.0002909  a  CONVERTS  NAUTICAL  NILES  TO 

C  RAOIANS. 

1  IF(ITIME.NE.O)  THEN 
C 

C  UPOATE  A/C  POSITIONS  EVERT  FORTY  SECONDS. 

C 

DO  310  KR  *  1/  NAC 

QLAT  *  TJFILE(KRzl) 

T JFILE (KR/1 )  »  TJFILE(KRzl)  ♦  (TJFILE(KR/6)»CF)«40. 

TJFILEIKR/2)  *  TJFILE(KR/2)+(TJFILE(KR/5)*CF/CQS(QLAT))*40. 
TJFILE(KR/3)  ■  TJFILE(KR/3)  ♦  TJFILE (KR/7) *40. 

310  CONTINUE 
ENO  IF 


i  .^lj. jccljk^x  vj, jug jw>  J*s)-xjyx^\^.a^iJia.  vzyuJJt**L^ '^xju^h . a jf -ii k  -  jr.'L^c'«i.Mu~K-^*w"i— 1 < 
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•  •*  LOAD  *** 


1  AT.  C 

1  48.  C 

1  49.  C 

50. 

51. 

52. 

53. 

54. 

55. 

54. 

57.  C 

58.  C 

59.  C 


60. 

61. 

62. 

63.  C 

64.  C 

65.  C 

66.  C 

67.  C 

68.  C 

69.  C 

70.  C 

71.  C 

72.  C 

73.  C 

74.  C 

75.  C 

76.  C 

77.  C 

78. 

79. 

80. 

81.  C 

02. 

83. 

84. 

85. 

86.  C 

87.  C 

88.  C 

89. 

90. 

91. 

92.  C 

93. 

94.  C 

95. 

2  96.  C 

2  97. 

2  98.  C 

2  99. 

2  100.  C 

2  101. 

2  102. 

2  103.  C 

2  104. 

2  105.  C 


-  LOAD/UPDATE  ARRAYS. 


OENSU  >0.  a  ZERO  OUT  DENSITY  COUNTERS 

0ENSU1  >  0. 

DENSU5  *  0. 

DEMSU3  *  0. 

0ENS5  ■  0. 

OENS30  *  0. 

00  300  1  *  1#  NUMTCA  B  L00R  OVER  ALL  TCAS  II  M  A/C 

COMPUTE  HEAOINC  OF  TCAS  II  H 
IH  »  1111(1) 

THETA(I)  «  ASIN(TJFILE(IH#6)/((TJFILE(IH#5)**2  ♦ 

1  TJFILt(IH#6>**2.) **0.5)) *57.2957 

THE  FACTOR  OF  57.2957  IN  THE  A80VE  EQUATION  CONVERTS  THE  ANCLE  FROM 
RADIANS  TO  DECREES. 


THE  ANGLE  THETA  ABOVE  NAS  COMPUTED  IN  THE  FOLLON1NC  COORIOINATE  SYSTEM* 
DUE  WEST  IS  0  DEGREES/  OUE  NORTH  IS  90  DECREES#  EAST  IS  ISO  DECREES# 
AND  SOUTH  IS  270  DECREES.  HOWEVER  THE  COORIOINATE  SYSTEM  WE  WISH  TO 
WORK  IN  IS  AS  FOLLOWS:  NORTH  A1  0  DECREES#  WEST  AT  90#  SOUTH  AT  180# 
AND  EAST  AT  270.  THE  CALCULATION  ABOVE  ALSO  ASSUMES  THAT  THE  PLANE 
IS  HEAOINC  WEST#  SO  TO  CORRECT  THESE  PROBLEMS#  WE  MUST  SUBTRACT  THE 
ABOVE  ANCLE  FROM  90  DECREES#  AND  IF  IT  IS  HEAOINC  EAST  SUBTRACT  THAT 
ANGLE  FROM  360  OEGREES#  WHICH  RESULTS  IN  AOOING  270  TO  IT.  (NEW 
THETA  *  90  -  THETA#  ANO  EAST  -THETA  -  360  -  NEW  THETA  «  360  -  (90- 


THETA)  «  270  ♦  THETA.) 

YAW  ■  90.  -  TMETA(I) 

IF  (TJFILE(IH#S).LT .0.)  TAIf  ■  270. 
THETA(I)  *  YAW*3. 14159/180. 

HAXNAC  *  0 

TLAT  ■  TJFILE(IH#1) 

TLON  «  T JFIL£(IH#2) 

ALT1  *  TJFILE(IH#3)/6076.0 

LOOP  OVER  ALL  AIRCRAFT 

00  500  J  *  1#  NAC 
ICASFI(I#J#1)  *  0 
IF  (IH.EQ.J)  GO  TO  500 

RLAT  «  TJFILE(J#1> 

RLON  *  TJFILE( J#2) 

ALT  2*T  JFILE(J#3)/6076.0 

CALL  BEAR 

8EARTX  *  8EARTX  *  40. 

A  *  01 ST 

a  *  (ALT1  -  ALT2) 


4  THETA(I) 

B  3.14159/180  CONVERTS  THE 
ANCLE  BACK  INTO  RAOIANS 

8  TCAS  IIN  LATITUOE  IN  RADIANS 
a  TCAS  IIN  LONCITUOE  IN  RADIANS 
8  TCAS  IIH  ALT  IN  NHI 


8  OON’T  SELECT  THE  TCAS  II  N  AS 
THE  VICTIM  AIRCRAFT. 

8  UPDATE  VICTIM  AIRCRAFT 
LATITUOE  (RADIANS). 

8  UPDATE  VICTIM  AIRCRAFT 
LONCITUOE  (RAOIANS). 

8  VICTIM  AIRCRAFT 
ALTITUOE  (NMI). 

8  COMPUTE  R#THETA  OF  VICTIM 
AIRCRAFT. 

3  HORIZONTAL  OISTANCE 
(NAUTICAL  MILES). 

8  DIFFERENCE  IN  ALTITUOE 
(NAUTICAL  NILES). 


B-  40 


•  **  1,0*0  *** 


2 

106. 

C  *  ( SORT (A*  A  *  8*8) ) *  10.  8  STRAIGHT  -  LINE  OISTANCE 

2 

107. 

C 

(SLANT  RANGE). 

2 

108. 

SLTRG  -  C  ♦  1.  8  IN  TENTHS  OF  NAUTICAL  NILES 

2 

109. 

IF  (IJFILE(J.4).EQ.O)  GO  TO  5004  8  IF  MODE  S  OR  TCAS  II  M  A/C. 

2 

'  110. 

C 

UPDATE  TRACK  FILE 

2 

111. 

0»ABS(B*1. 15*5280.) 

2 

112. 

IF  ((SLTRG  .LE.  500)  .AND.  (8  .LT.  1.48))  THEN 

2 

113. 

C 

LOAO  NEW  AIRCRAFT 

3 

114. 

ZERO  *  .FALSE. 

3 

115. 

•  00  1200  IX  *  1.  500 

* 

116. 

IF  (FLO (0.10. I TRACK! 1/ IX)).EQ.J)  GOTO  1201 

4 

117. 

IF  (<ITRACK(I.IX).EQ.0>.AND.(.N0T.2ERG>)  THEN 

5 

118. 

ZERO  «  .TRUE. 

5 

119. 

J1  *  IX 

3 

120. 

ENO  IF 

4 

121. 

1200 

CONTINUE 

3 

122. 

FLO(O.IO.XTRACKO.JI))  «  J 

3 

123. 

1201 

CONTINUE 

3 

124. 

ELSE  8  ELIMINATE  FROM  NODE  S  TRACK 

3 

125. 

00  5001  IZ  «  1.  500  8  FILE  ALL  AIRCRAFT  BEYOND  50 

4 

126. 

IN  *  FLO (0.1 0/ IT RACK (I. I Z))  8  NHI  OF  TCAS  II  N. 

4 

127. 

IF  (IN  .EQ.  J)  XTRACK(I.IZ)  »  0 

4 

128. 

5001 

CONTINUE 

3 

129. 

ENO  IF 

2 

130. 

5004 

CONTINUE 

2 

131. 

C 

2 

132. 

C 

UPOATE  TCAS  ENVIRONMENTAL  ARRAY 

2 

133. 

C 

2 

134. 

C 

IN  THE  FOLLOWING  PROPAGATION  LOSS  EQUATION: 

2 

135. 

C 

37.80-  CONSTANT  ADJUSTMENT  -ACTOR  FOR  THE  UNITS 

2 

136. 

C 

1030  -  UPLINK  FREQUENCY  IN  MEGAHERTZ 

2 

137. 

C 

SLTRG/ 10  «  THE  SLANT  RANGE  IN  NNI 

2 

138. 

C 

3.0  »  CABLE  LOSS 

2 

139. 

C 

60.0  -  CONVERSION  FROM  KILOWATTS  TO  MILLIWATTS 

2 

140. 

C 

2 

141. 

AP  >  37.80*20. *AL0G1 0(1 030.) *20.* AL0G10(SLTRG/10.) *3.0-60. 

2 

142. 

PR  -  (-APH10.  8  LOSSES  WITHOUT  ANTENNA 

2 

143. 

C 

COUPLINGS. 

2 

144. 

IF  (SLTRG. GE. 500)  tCASFI(X.J.I)  -  0 

2 

145. 

IF  (SLTRC.LT. 500)  THEN 

3 

146. 

IF  (A.LE.10.)  MAXNAC  ■  MAXNAC  *  1  8  COUNT  THE  AIRCRAFT  WITHIN 

3 

147. 

C 

10  NMI  OF  TCAS  IIH. 

3 

148. 

IX  -  INT(SLTRG)  8  RELATIVE  8AN6E. 

3 

149. 

IT  «  INT(SEARTX)  8  RELATIVE  BEARING. 

3 

150. 

IZ  *  INI (ABS(PR))  8  RELATIVE  POWER. 

3 

151. 

FL0(00.09.ICASFX(I.J.1))  -  IX  8  LOAO  RANGE. 

3 

152. 

FLO(17.10.ICASFI(I.J.D)  -  IZ  8  LOAO  POWER. 

3 

153. 

FL0(34.2.ICASFI(I.J.D)  *  IJFILEU.4) 

3 

154. 

TEMPI  *  (IY/40.)  -  THETA(I) 

3 

155. 

IF  (TEMPI. LT.O)  TEMPI  »  TEMPI  ♦  6.28)18 

3 

156. 

TEMP  «  (TEMPI/0. 098175)  ♦  1 

3 

157. 

MSEC  -  INT(TEMP) 

3 

158. 

IF  (MSEC.EQ.O)  MSEC  »  1 

3 

159. 

FL0(27.7.ICASFI(I.J.1))  «  MSEC 

3 

160. 

IF  (MSEC. GT. 65)  FL0(27.7.ICASFI(I.J.1))  *  64 

3 

HI. 

THE  =  TEMPI *40. 

3 

162. 

Ftn(9.8.ICASFI(I.J.1))  «  INT (THE)  8  LOAD  BEARING  OF  VICTIM. 

3 

163. 

ENO  IF  8  ENO  VICTIM  ALE  FILE. 

2 

164. 

500 

CONTINUE 

B-41 


rsj 
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***  LOAD  *** 


1 

1 

1 

1 


165.  C 

166.  C  COMPUTE  LOCAL  DENSITY  ABOUT  TCAS  II  M 

167.  C 

168.  OENS(I)  *  HA XN AC/ 0.1 41 59*1  QO.) 

169.  C 

170.  C 

171.  300  CONTINUE 

172.  RETURN 

173.  END 


B  AIR  TRAPPIC  DENSITY 

WITHIN  10  NAUTICAL  NILES. 

a  END  TCAS  AIRCRAFT. 


END  PTN  517  IBANK  206  OSANK  72837  COHNON 
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***  PRESET  «** 

8FTN*S  B. PRESET/PRESET 

FTN  tint  02/27/85-16:35(47*) 

1.  SUBROUTINE  PRESET 

2a  C  '  i 

5.  C  THE  PURPOSE  OF  THIS  SUBROUTINE  IS  TO  APPROXIMATE  THE  INTERFERENCE 

4.  C  LIMITING  EFFECTS  ON  EACH  TCAS  AIRCRAFT. 

5.  C  THIS  SUBROUTINE  IS  ONLY  CALLED  FOR  •ITINE  »  0*. 

6.  C 

7.  C  *************  INPUTS  /  OUTPUTS  **«*•••***** 

B.  C 

9.  C  COMMON  BLOCKS  /  VARIABLES 


10. 

C 

INPUTS 

OUTPUTS 

DESCRIPTION 

11. 

C 

12. 

C 

AOJSEN 

/ 

SESIT 

TCAS  II  H  SENSITIVITIES  ADJUSTEO 

13. 

C 

TO  CONFORM  TO  I-L  EQUATIONS 

14. 

c 

CAS 

/ 

T4FILE 

AIRCRAFT  CHARACTERISTICS  FILE 

IS. 

C 

OPLTMT 

/ 

IOAB 

NUMBER  OF  MODE  S  AIRCRAFT 

16. 

c 

ITCA 

NUMBER  OF  TCAS  II  H  AIRCRAFT 

17. 

c 

ILMS 

/ 

AMSP 

TCAS  II  M  TRANSMISSION  POWER* 

18. 

C 

ADJUSTEO  TO  SATISFY  I-L  EQNS. 

19. 

c 

SENS 

/ 

JSENS 

AIRCRAFT  SENSITIVITY  LEVELS 

20. 

c 

SURV 

/ 

ITRACK 

MODE  S  TRACK  FILE 

21. 

c 

TCAA 

/ 

NUMTCA 

NUMBER  OF  TCAS  AIRCRAFT 

22. 

c 

TCOATA 

/ 

1111 

TCAS  II  H  POINTER  FILE 

23. 

c 

TRAX 

/ 

JTRANS 

AIRCRAFT  TRANSMISSION  POWERS 

24. 

c 

25. 

c 

26. 

INCLUOE  RESTART*LIST 

1.1  PARAMETER  (NUAIR  «  328) 

2.1  C 

3.1  C  THE  LOGICAL  VARIABLE  PRINT*  NHEN  FALSE*  HILL  SUPPRESS  ALL  NRITE 

4.1  C  STATEMENTS  IN  THE  HOOEL. 

5.1  C 

6.1  LOGICAL  PRINT 

7.1  OIMENSION  TJFILE(NUA1R*8>*  I JFILE(NUAIR*8)*  1CASF1(B3*NUAIR*1 ) 

8.1  COMMON  /TCOATA/  1111(83)*  0ENS(83)* 

9.1  T  lATIN(NUAIR)*  lATSU(NUAIR)*  IOABN(NUAIR)*  IDABS(NUAIR) 


10.1 

EQUIVALENCE  <TJFILE*IJFILE) 

11.1 

COMMON  /CAS/  ICASFt*  TJFILE*  NAC*  II*  PRINT 

27. 

COMMON/ SURV/ (TRACK (83* 500) 

28. 

COMMON /TCAA/ NUMTCA 

29. 

COMMON/ ILMS/KC A RR ( 83 )* AMSP (83)* I RESET (83) 

30. 

C0MH0N/A0JSEN/SESIT(83> 

• 

31. 

COMMON/TRAX/ JTRANS (NUAIR) 

32. 

COMMON/ SENS /JSENS (NUAIR) 

33. 

COMMON/OPLYMT/IATCR* IOAB* ITCA 

34. 

DEFINE  FL0(I*J*K)>8ITS(K*I+1*J) 

35. 

NTRK  *  500 

8  NUMBER  OF  TRACKS  IN  TRACK  FILE 

36. 

00  1  IT  »  1*  NUMTCA 

8  LOOP  OVER  ALL  TCAS  IIH  A/C 

1 

37. 

SQTARG  «  0. 

1 

38. 

AQTARG  ■  0. 

1 

39. 

RCTARG  ■  0. 

1 

40. 

LT  a  HU  (IT) 

i 

1 

41. 

TCALT  *  TJFILE(LT*3) 

a  TCAS  IIH  ALTITUDE. 

1 

42. 

00  2  IF  *  1*  NTRK 

8  LOOP  OVER  TCAS  IIM-MOOE  S 

2 

43. 

K  *  FL0(0*10*ITRACK(IT*IF>) 

8  TRACK  FILE. 

2 

44. 

IF  (K.EQ.O)  GO  TO  2 

8  AIRCRAFT  REMOVED  FROM  TRACK 

2 

45. 

ITEMP  *  FLO(34*2*ICASFI(IT*K*1)> 

8  GET  10  IN  ENVIROMENT  ARRAY 

2 

46. 

IF  (ITEMP. EQ.O)  GO  TO  2 

8  0  MEANS  ATCRSS  AIRCRAFT. 

■;trWTTWTl^TJT*X=*I^.TrWA-XWOTCXCW  I 
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m*  PRESET  **» 


2 

67. 

SR  »  FL0(0/9,ICASFI(IT,K#1))/10. 

2 

68. 

IF  (SR.6T.35.)  60  TO  2 

8  SR  GREATER  THAN  35  NNI 

2 

69. 

SQTARG  >  SQTARG  ♦  1 

8  SQUITTER  COUNT  (SQTARG) 

2 

30. 

AMSALT  ■  TJFILE(K#3)  • 

8  MODE  $  ALT.  (FEET). 

2 

SI. 

OALT  *  ABStTCALT  -  AMSALT) 

3  DIFFERENCE  IN  ALT.  (FEET). 

2 

32. 

IF  (SR.CT.30.)  GO  TO  2 

2 

53. 

IF  (OALT. GT. 9000.)  GO  TO  2 

2 

56. 

IF  (SR. GT. 7.16)  AQTARG  »  AQTARG  ♦ 

1  a  COUNT  NUMBER  IN  AQUISITION 

2 

55. 

IF  (SR.LE.7.16)  RCTARG  «  RCTARG  ♦ 

1  B  COUNT  NUMBER  IN  ROLL  CALL 

2 

36. 

2 

CONTINUE 

8  ENO  TRACK  LOOP. 

1 

57. 

INOS  >  IOAB  6  1TCA 

B  TOTAL  NUMBER  OF  MOOE  S 

1 

58. 

C 

AND  TCAS  IIM  AIRCRAFT. 

1 

59. 

NTC S*SQT ARC* (FLOAT( ITCA))/( FLOAT! INOS)) 8  TOTAL  NUMBER  OF  SQUITTER 

1 

60. 

C 

TARGETS  FOR  MOOE  S  7  TCAS. 

1 

61. 

C 

1 

62. 

C 

DETERMINE  NUMBER  OF  POWER  B  SENSITIVITY 

ADJUSTMENTS  NEEOEO  TO  SATISFY 

1 

63. 

C 

INEQUALITY  *1  OF  INTERFERENCE-LIMITING. 

MAKE  NO  MORE  THAN  SEVEN 

1 

66. 

C 

ADJUSTMENTS.  SEE  ECAC-PR-86-00S  AND  THE 

TCAS  HOPS  FOR  MORE  INFORMATION. 

1 

65. 

C 

1 

66. 

JATEN  »  -1 

1 

67. 

ANEQ  «  300. 

1 

68. 

C 

1 

69. 

1200 

IF  ((ANEQ  .GE.  280.)  .AND.  (JATEN  .LE 

.  7))  THEN 

2 

70. 

JATEN  *  JATEN  ♦  1 

2 

71. 

C 

2 

72. 

C 

APPROXIMATE  THE  NUMBER  OP  INTERROGATIONS  SENT  BY  TCAS  TIN. 

2 

73. 

NHT«((1.2«RCTA*6>6(0.05*AQTARC*(0. 

890**JATEN))> 

2 

76. 

c 

2 

75. 

c 

CALCULATE  INEQUALITY  «1  AND  CHECK  TO  SEE  IF 

IT  HAS  BEEN  SATISFIED. 

2 

76. 

ANEQ  *  NHT* (.892 ** JATEN) *NTCS 

2 

77. 

GO  TO  1200 

2 

78. 

END  IF 

1 

79. 

SESIT(IT)  *  JSENS(LT)  ♦  JATEN 

8  ADJUSTED  TCAS  IIM  SENSITIVITY 

1 

80. 

c 

TO  BE  USED  IN  I-L. 

1 

81. 

ATRANS*JTRANS(LT) 71000. 

1 

82. 

AMSP (IT) ■ (ATRANS* (0.790** JATEN)) 

8  ADJUSTEO  TCAS  IIM  POWER 

1 

83. 

c 

TO  BE  USEO  IN  I-L. 

1 

86. 

1 

CONTINUE 

85. 

RETURN 

86. 

ENO 

ENO  FTN  236  IBANK  SB  OBANK  73821  COMMON 
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8FTN/S  B. RANN, RANN 

FTN  1 1 R 1  02/27/85-16:35(4,) 


1 

1 

1 


1.  SUBROUTINE  RANN(RAN) 

2.  C 

c  THIS  SUBROUTINE  IS  A  RANOOH  NUMBER  GENERATOR  OEVELOFEO 
(•  C 

5.  LOGICAL  GTIST 

*.  IF  (.NOT. (GUST))  THEN 

7.  ISEEO  ■  532413 

8.  GTIST  «  .TRUE. 

9.  END  IF 

10.  ISEEO  «  ISEED*3125 

11-  RAN  «  A8S (FLOAT (ISEEO) >*.2910383048299172500-10 

12.  RETURN 

13.  END 


BV 
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IFTN#S  6. STATS/STATS 

FTN  1 1 R 1  02/27/85-16:35(49#) 

1.  SUBROUTINE  STATS 

2.  C 

5.  C  THE  PURPOSE  OF  THIS  SUBROUTINE  IS  TO  COMPUTE  STATISTICS  FOR  SEVERAL 
4.  C  TCAS  VARIABLES. 


5. 

C 

6. 

C 

7  m 

8. 

C 

COMMON  BLOCKS 

/ 

VARIABLES 

9. 

C 

INPUTS 

OUTPUTS  DESCRIPTIONS 

10. 

C 

11. 

C 

ATE 

/ 

ORATE 

ORATE  TOTAL  INTERROGATIONS  REC'O  BY  TCAS  ItM 

12. 

c 

CAS 

/ 

NAC 

NUMBER  OF  AIRCRAFT  IN  DEPLOYMENT 

13. 

c 

OPLTMT 

/ 

1ATCR 

NUMBER  OF  ATCRBS  AIRCRAFT 

14. 

c 

I0A8 

NUMBER  OF  MODE  S  AIRCRAFT 

15. 

c 

ITCA 

NUMBER  OF  TCAS  II  M  AIRCRAFT 

16. 

c 

SMOOTH 

/ 

NOV 

NUMBER  OF  TCAS  IIM  INTERROGATIONS 

17. 

C 

TCOATA 

/ 

IATIN 

ATCRBS  INTERROGATIONS  DUE  TO  TCAS  II  N 

18. 

r 

IATSU 

ATCRBS  SUPPRESSIONS  DUE  TO  TCAS  II  M 

•  V. 

c 

I0A8N 

MODE  S  INTERROGATIONS  DUE  TO  TCAS  It  N 

20. 

c 

IOABS 

MODE  S  SUPPRESSIONS  DUE  TO  TCAS  II  N 

21. 

c 

TCRATl 

/ 

ATCRAT 

TCAS  I  INTERROGATIONS  AT  EACH  AIRCRAFT 

22. 

c 

TEMP 

/ 

ITIHE 

SIMULATION  TIME 

23. 

c 

24. 

c 

25. 

INCLUDE  RESTART, 

rLIST 

1.1  PARAMETER  (NUAIR  «  328) 

2.1  C 

3.1  C  THE  LOGICAL  VARIABLE  PRINT#  WHEN  FALSE#  HILL  SUPPRESS  ALL  WRITE 

4.1  C  STATEMENTS  IN  THE  MOOEL. 

5. 1  C 

6.1  LOGICAL  PRINT 

7.1  DIMENSION  TJFILE(NUAIR#8)#  I4PILE(NUAIR#8)#  ICA$FI(83#NUAIA#1) 

8.1  COMMON  /TCOATA/  1111(83)#  0ENSI83)# 

9.1  t  IAT IN(NUAIR)#  lATSU(NUAIR)#  IOAAN(NUAIR)#  lOABS(NUAIR) 

10.1  EQUIVALENCE  <T JFILE#IJFILE) 

11.1  COMMON  /CAS/  ICASFI#  TJFILE#  NAC#  II#  PRINT 

26.  COMMON/TEMP/ IT IME 

27.  COMMON/SMOOTH/ NON (83)#  TIS(83)#TPS(83) 

28.  COMMON/ AT E/OR ATE (83) 

29.  COMMON/OPLTMT/I ATCR#IDAB#ITCA 

30.  COMMON/ TC RATI /ATCRAT (NUAIR) 

31.  C 

32.  C  COMPUTE  AVERAGE  NUMBER  OF  TCAS  II  M  WITHIN  EACH  TCAS  VOLUME#  AND 

S3.  C  AVERAGE  NUMBER  OF  INTERROGATIONS  SENT  BY  TCAS  II  M. 

34.  C 

35.  SIGSUM  *  0.0 

36.  PSUM  *  0.0 

37.  OSUM  «  0.0 

38.  00  10  NS  ■  1#  ITCA 

39.  ANOW  ■  NOW(NS)  3  TCAS  IIM  SQUITTER  COUNTER. 

40.  PSUM  >  PSUM  ♦  ANOW/FLOAT (ITCA)  8  COMPUTE  AVERAGE  NUMBER  OF 

41.  SIGSUM  *  SIGSUM  ♦  ANOW»ANOW  8  TCAS  IIM  IN  VOLUME.  ' 

42.  ORATE(NS)  »  DRATE(NS)  ♦  1 

43.  OSUM  *  OSUM  t  ORATE (NS) /FLOAT (ITCA)  3  AVERAGE  INTERROGATIONS 

44.  10  CONTINUE 

45.  ESOEV  »  SORT ((SIGSUM/FLOAT( ITCA))  -  PSUM*PSUM> 

46.  C 
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1 

1 

1 

1 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

1 


47. 

43. 

49. 

50. 

51. 

52. 
55. 

54. 

55. 

56. 

57. 

58. 

59. 

60. 
61. 
62. 

63. 

64. 

65. 

66. 

67. 

68. 

69. 

70. 

71. 

72. 
71. 

74. 

75. 

76. 

77. 

78. 

79. 

80. 
81. 
82. 

83. 

84. 

85. 

86. 

87. 

88. 

89. 

90. 

91. 

92. 

93. 

94. 

95. 

96. 

97. 

98. 

99. 
100. 
101. 
102. 

103. 

104. 

105. 


SUM  «  tTCA  9  IDAB 
SUM1  »  IATCR 
ISUM2  «  0 
I  SUMS  ■  0 
ISUM4  «  0 
ISUM5  *  0 
ISUM8  «  0 
ISUM9  ■  0 
ISUM10  «  0 
ISUM11  «  0 
00  11  IK  *  1/  MAC 

If  ( I JFILE(IKa4) .NE.Q)  THEN 
C 

C  COMMUTE  STATS  ON  TCAS  la  TCAS  IIMe  AND  MODE  $  INTERROGATIONS. 

C 

ISUM2  »  ISUM2  9  lOABN(IK)  9  ATCRATOK) 

ISUM3  «  ISUM3  9  IDABS(IK) 

ISUH4  *  1SUM4  9  ( ItlABN(IK)  9  ATCRATCIK>>**2. 

ISUH5  -  I  SUMS  9  I  DABS  (IK)  *I0ABS(IK) 

ELSE 

C 

C  COMMUTE  NUMBER  OF  HHISMER-SMOUT  INTERROGATIONS  AND  SUMMRESSIONS 

C  RECEIVED  AT  ATCRBS. 

C 

ISUM8  ■  I SUMS  9  IAT1N(IK)9ATCRAT(IK)  8  N-S  INTERROGATION  RECEIVED 
C  AT  ATCRBS  OUE  TO  TCAS  I  I  II 

ISUN9  «  ISUM9  9  lATSfJ(IK)  8  UHISMER-SHOUT  SUMMRESSION 

C  RECEIVED  AT  ATCRBS. 

ISUM1Q  >  ISUM10  9  (lATIN(IK)  9  ATCRAT(IK) ) **2. 

ISUM11  «  ISUM11  9  IATSU(IK)*IATSU(IK) 

END  IF 

11  CONTINUE 
AI  «  ISUM8/SUM1 
AS  ■  ISUM9/SUN1 

AISOV  a  SORT (ISUM10/SUH1  -  AI»AI) 

ASSDV  >  SQRT< ISUM11/SUM1  -  AS*AS) 

01  a  ISUM2/SUN 
OS  -  ISUM3/SUN 

OtSOV  -  SQRTOSUM4/SUM  -  01*01  > 

OSSOV  -  SQRTOSUH5/SUH  -  0S*0S) 

IF  (MRINT)  WRITE (*a1 2)  ITIMEa  MSUMa  ESDEVa  OSUHa  Ala  AlSOVa  AS 
IF  (MRINT)  WRITE! *a13)  ASSOVa  DIa  OlSOVa  OSa  DSSDV 

12  FORMAT  Cl'alXa*  SIMULATION  TIMES  *aI3a'  SECONOS'a/a/alKa 

T  *  AVERAGE  NUMBER  OF  TCAS  II  N  IN  ANT  TCAS  II  M  VOLUME:  'a 
1  F10.4a/a1Xa 

1  •  STANOARD  DEVIATION:  *a 

f  F10.4a/a/a1Xa 

T  'AVERAGE  NUMBER  OF  INTERROGATIONS  SENT  BY  TCAS  II  N:  'a 
T  Fl0.4a/a/a1Xa 

T  'AVERAGE  ATCRBS  INTERRROGATIONS  RECEIVED  OUE  TO  TCAS  II  N:  'a 
7  F10.4a/a1Xa 

1  '  STANOARO  DEVIATION:  'a 

T  F10.4a/a/a1Xa 

T  'AVERAGE  ATCRBS  SUMMRESSIONS  RECEIVEO  OUE  TO  TCAS  II  M:  'a 
1  F10. 4) 

13  FORMAT  (/alXa 

?  '  STANOARO  DEVIATION:  'a 

7  F10.4a/a/,1X, 

7  'AVERAGE  MODE  S  INTERROGATIONS  RECEIVEO  OUE  TO  TCAS  II  M:  'a 


8  ATCRBS  INTERROGATION. 

8  ATCRBS  SUMMRESSION. 

8  STANOARO  DEVIATION 

8  AVERAGE  NOOE  S  INTERROGATIONS 
8  AVERAGE  NOOE  S  SUMMRESSIONS 
8  STANOARO  DEVIATION 


8  TOTAL  NUMBER  OF  MODE  S  A/C 
8  NUMBER  OF  ATCRBS-ONLV  A/C 
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106.  1  F10. K't, IX. 

107.  1  •  '  STANDARO  OEVIATION: 

108.  ?  P10.4././/1 X/ 

109.  1  'AVERAGE  MODE  S  SUPPRESSIONS  RECEIVED  DUE  TO  TCA$  II  M: 

110.  1  F10.4//.1 X* 

111.  T  *  STANOARO  OEVIATION:  *, 

112.  1  F10. A) 

113.  RETURN 

114.  ENO 

END  FTN  297  IBANK  309  08ANK  31993  COMMON 
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JFTH,S  B. TCAS1 / TCAS1 

FTN  11*1  02/27/85-14:35(19#) 


SUBROUTINE  TCAS1 


2. 

C 

• 

• 

3. 

C 

THE  FUNCTION 

OF  THIS  SUBROUTINE  IS 

TO  DETERMINE  THE  EFFECTS  OF 

4. 

C 

OEPLOTING 

TCAS1  AIRCRAFT  IN  THE 

ENVIRONMENT.  ALL  MODE  S  AIRCRAFT 

5. 

c 

ARE  ASSUMED 

TO  8E  TCAS  I-EQUIPPEO.  THIS  SUBROUTINE  IS  CALLED  ONLY 

4. 

7. 

c 

c 

WHEN  A  TCAS 

1  ANALYSIS  IS  CONDUCTED. 

8. 

9. 

c 

c 

>«  INPUTS  /  OUTPUTS 

10. 

c 

11. 

c 

COMMON  BLOCKS 

/ 

VARIABLES 

12. 

c 

INPUTS  OUTPUTS 

DESCRIPTION 

13. 

c 

14. 

c 

ANTO 

/ 

PASBOT 

RECEIVING  ANTENNA  PATTERNS}  BOTTOM 

15. 

c 

PASTOP 

TOP 

14. 

c 

ANTT 

/ 

ANT80T 

TRANSMITTING  ANTENNA  PATTERNS}  BOTTOM 

17. 

c 

/ 

ANTTOP 

TOP 

18. 

c 

CAS 

/ 

I JFILE 

AIRCRAFT  TYPES 

19. 

c 

NAC 

NUMBER  OF  AIRCRAFT 

20. 

c 

TJFILE 

AIRCRAFT  CHARACTERISTICS 

21. 

c 

SENS 

/ 

JSENS 

SENSITIVITY  LEVELS  FOR  EACH  AIRCRAFT 

22. 

c 

TCRAT1 

/ 

ATCRAT 

NUMBER  OF  TCAS  I  INTERROGATIONS  AT  EACH 

23. 

c 

AIRCRAFT 

24. 

c 

25. 

c 

24. 

INCLUDE  RESTART#LIST 

PARAMETER  (NUAIR  >  320 

THE  LOGICAL  VARIABLE  PRINT#  WHEN  FALSE#  HILL  SUPPRESS  ALL  WRITE 
STATEMENTS  IN  THE  MODEL. 

LOGICAL  PRINT 

DIMENSION  T JFILE (NU AIR #8)#  IJPIL£(NUAIR#8)#  ICASFI(83#NUAI*#1> 

COMMON  /TCOATA/  1111(83)#  DENS(83)# 

T  IATIN(NUAIR)#  IATSU(NUAIR)#  IDAIN(NUAIR)#  IDABS(NUAIR) 

EQUIVALENCE  (TJFILE#IJFILE> 

COMMON  /CAS/  ICASPI#  TJFILE#  NAC#  II#  PRINT 
COMMON/ ANTT/ANTT0P(1 9) #ANTB0T(19) 

.C0MM0N/ANT0/PA$T0P(19)#PAS80T(19) 

COMMON/ SENS/ /SENS (NUAIR) 

C0MM0N/BBBEAR/TLAT#TL0N#RLAT#*L0N#0IST#8EARTX 
COMMON/ TC RATI /ATCRAT(NUAIR) 

00  10  NN  «  1#  NAC  8  SELECT  A  TCAS  I  AIRCRAFT. 

IF  ((IJFIL£(NN#4).EQ.3).0R.(IJFILE(NN#4).EQ.0>)  GO  TO  10 


TLAT  >  TJFILEINN# 1) 

TLON  *  TJFILE(NN#2) 

ALT1A  ■  TJFILE(NN#3)/4074.0 
ITTP  «  I JFILE (NN#4) 

DO  11  IA  •  1#  NAC 

IF  (NN.EO.IA)  GO  TO  11 
RLAT  ■  TJFILE (IA#1 ) 

RLON  *  TJFILE(IA#2) 

ALT2A  *  TJFILE(IA#3)/4076.0 
CALL  BEAR 

BC  *  (ALT1A  -  ALT2A) 

CO  *  (SQRT(OIST*OIST  ♦  BC«BC)) 


8  TCAS  I  LATITUDE  (RADIANS) 

8  TCAS  I  LONGITUDE  (RAOIANS) 
8  TCAS  I  ALTITUDE  (MILES) 

8  PICK  VICTIM  A/C 

8  VICTIM  LATITUOE  (RAOIANS) 

8  VICTIM  LONGITUDE  (RAOIANS) 
8  VICTIM  ALTITUOE  (MILES) 

8  GET  HORIZONTAL  DISTANCE 
BETWEEN  AIRCRAFT 
8  VERTICAL  SEPARATION  (NMI) 

8  SLANT  RANGE  (NMI) 
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2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

1 


47. 

48. 
47. 

50. 

51. 

52. 

53. 
$4. 

55. 

56. 

57. 

58. 

59. 

60. 
61. 
62. 

63. 

64. 

65. 

66. 

67. 

68. 

69. 

70. 

71. 

72. 

73. 

74. 

75. 

76. 

77. 


ARGA«<8C/DIST> 

THET  «  (ATANIARGA ) > *57.296 
THETA1  *  ABS((THET+90.)/10.) 
ITH1  *  THETA1  ♦  1  ' 

THETA2  *  AIS((THET-90.)/10.) 
ITH2  «  THETA2  ♦  1 


8  DETERMINE  ANCLE  BETWEEN 
8  TCAS  I  ANO  VICTIH  A/C 


OETEftNINE  GAIN  OF  ANTENNA. 

■  GN1  *  ANTTOPt ITH1 )  ♦ 
I  (ANTTOPdTMIM) 

GN2  >  PASBOTdTHZ)  ♦ 
I  (PAS6QTCITH2M) 

GN3  »  AN1  uOTdTMl )  ♦ 


( CTHETA1  ♦  1)  -  FLOAT dTHI))* 

-  ANTTOP(ITHD) 

( (THETA2  ♦  1)  -  FLOAT <ITH2)>* 

-  PASBOTdTHZ)) 

UTKETA1  6  1)-  FLOAT CITH1 ))• 


(ANTBOTt ITH1P1 )  -  ANTBQT(ITHO) 
GN4  *  PASTOPI ITH2)  ♦  f (THETA2  ♦  1)  - 


FLOAT  EITM2) )* 


(PAST0PdTH2+1>  -  PAST0PCITH2)) 

GS  -  GN1 
GV  •  GN2 

IF  (<GN4.GT.GN2).AND.dJFILEdA*4).NE.O))  CV  »  CN4 
GNCOUP  ■  CS  ♦  GV 

LOS  -  36.58  ♦  20.*ALOC10C1030.)*20.*ALOC10(CO*1. 15) *3.-60 


PA  ■  -13.98  -  LOS  ♦  GNCOUP  -  3. 
IF  IP8.LT. JSENS(IA))  GO  TO  11 

ATCRAT(IA)  «  ATCRATI I A)  ♦  1 


11 


CONTINUE 


•  COMPUTE  RECEIVEO  POWER 

•  IF  POWER  RECEIVED  LESS  THAN 
SENSITIVITY*  00  NOT  COUNT 

8  COUNTER  ARRAY  AT  VICTIMS  OUE 
TO  TCAS  I  INTERROGATIONS. 


10  CONTINUE 
RETURN 
END 


END  FTN  274  IBANK  87  06ANK  32067  COMMON 
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BFTH/S  A.TCSMOT.A.TCSHOr 
F  TN  1 1 R 1 1 R1 A  05/30/85-1 3:16(27#) 


1. 


SUBROUTINE  TCSMOT 


1.1 

2.1 

3.1 

4.1 

5.1 

6.1 

7.1 

8.1 

9.1 
10.1 
11.1 
12.1 

13.1 

14.1 

24. 

1.1 

25. 

1.1 

26. 

1.1 

22. 

1.1 

2.1 

28. 

29. 

1.1 

30. 

31. 

32. 

33. 

34. 

35. 

36. 

37. 


2. 

L 

3. 

C 

4. 

C 

THE  PURPOSE 

THIS  SUBROUTINE  IS 

TO  PROOUCE  VALUES  FOR  THE 

5. 

C 

EMISSION  POWERS 

AND  INTERROGATIONS 

RATES  SMOOTHED  OVER  A  16-SECONO 

6. 

c 

TINE  PERIOD. 

7. 

c 

3. 

c 

i 

INPUTS 

/  OUTPUTS  < 

9. 

c 

10. 

c 

COMMON  BLOCKS 

/ 

VARIABLES 

11. 

c 

INPUTS 

OUTPUTS 

DESCRIPTIONS 

12. 

c 

13. 

c 

ATE 

/ 

ORATE 

TOTAL  INTERROGATIONS  REC'O  BT  EACH 

14. 

c 

TCAS  II  N  TRANSPONDER 

15. 

c 

CAS 

/ 

XI 

TCAS  II  M  IOENTITV 

16. 

c 

ILMS 

/ 

AMSP 

ADJUSTED  TCAS  II  H  TRANSMISSION  POWER 

17. 

c 

SMOOTH 

/ 

TIS 

SMOOTHED  EMISSION  POWER 

18. 

c 

AVNSPW 

SMOOTHED  TOTAL  MODE  S  POWER 

19. 

c 

TCOATA 

/ 

mi 

TCAS  II  N  POINTER  FILE 

20. 

c 

TEMP 

/ 

ITIHE 

ELAPSED  TINE  IN  SIMULATION 

21. 

c 

22. 

c 

23. 

INCLUDE  RFSTART#LIST 

PARAMETER  INUAIR  »  743) 

THE  LOGICAL  VARIABLE  PRINT#  WHEN  FALSE#  HILL  SUPPRESS  ALL  WRITE 
STATEMENTS  IN  THE  MODEL. 

LOGICAL  POISMO#PINTLI#PTCSNT#PATNOD#PDI$IN»PPILE5#PFRUIT#PSTATS 
COMMON  /PRTBL/  POISHD#PINTLI#PTCSNT#PATMOD#POISIN#PFILES#PFRUIT# 
2  PSTATS 

DIMENSION  TJFXLEINU AIR/S)#  IJFILE <NUAIR,»>#  1CASPI(83#NUAIR#1> 
COMMON  /TCOATA/  1111(831#  0ENSCK3)# 

T  lATlN(NUAIR)#  IATSU (NUAIR)#  IDABN(NUAIR)#  tOABS(NUAIR) 
EQUIVALENCE  (TJFILE #1 JF ILE> 

COMMON  /CAS7  ICASFt#  TJFILE#  NAC#  II#  PRINT 
INCLUDE  ATE#LIST 
COMMON  /ATE/  0RATE(83> 

1NCLU0E  TEMP/LIST 
COMMON  /TEMP/  I  TIME 
INCLUOE  SMOOTH/LIST 

COMMON  /SMOOTH/  NOW(83>#  AVf SPM(83>#TIS(83) 

INCLUDE  ILMS#LIST 

COMMON  /ILMS/  NWSL(83>#  AMSP(83>#  IRESET (83) #  ATSUNPC0iB3)# 

2  IRETRN#  TPOW 
INCLUOE  TRAX#LIST 

COMMON  /TRAX/  JTRANS (NUAIR) 

REAL  INSTNT(0:13#S3)#RSUHP(83) 


INOX  * 
TMSPW 


MOOdTIME#  16) 

•  ORATE(II)  »  AHSP(II) 


IF ( ITIHE  .LE.  1 5 ) THEN 
AVMSPN(II)  =  TMSPW 
TIS(IX)  *  ORATE (II) 


8  POINTER  TO  CURRENT  STORAGE  TIME:  0  -  15 
8  TOTAL  MODE  S  POWER  IN  CURRENT  SECONO 

8  DON'T  SMOOTH  FOR  1ST  IS  SECONOS 
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1  54.  ELSE 

1  59.  AVTIHE  *  ITIHE  -  15  a  AVERA6I NC  VIHE 

t  40.  RSUHPU  I)  *  RSUHPUI)  ♦  THSPM  -  INSTNTC INOK/II) 

1  41.  AVHSPU(II)  *  RSUNPIII) /AVTIHE 

1  42.  USUI)  *  TISUI)  ♦  (  ORATE C II)  -  TIStll)  WAVTIHE 

1  45.  INSTNTUNOX/  ID  *  THSPH 

1  44.  END  IP 

45.  RETURN 

4A.  END 

ENO  PTN  115  IBANK  1447  DRANK  72175  CONNON 
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***  mNsr  **• 


8PTN/S  B.TRANSP/TRANSP 

PTN  1 1 R 1  02/27/85-16:1503,) 

1.  SUBROUTINE  TRANSP 

2.  C 

3.  C  SET  POWER  AND  SENSITIVITY  CHARACTERISTICS  DERIVED  FROM  ATC-9  FOR  EACH 


4. 

C 

TYPE  OF  TRANSPONDER. 

5. 

C 

6. 

c 

7. 

c 

COMMON  SLOCKS  /  VARIABLES 

c 

INPUTS 

OUTPUTS 

DESCRIPTION 

9. 

c 

10. 

c 

CAS  /  I JFILE. 

TYPE  OF  EACH  AIRCRAFT 

11. 

c 

NAC  « 

- 

NUMBER  OF  AIRCRAFT 

12. 

c 

SENS  / 

JSENS 

SENSITIVITY  LEVEL  OF  EACH  A/C 

13. 

c 

TRAX  / 

JTRANS 

TRANSMISSION  POWER  OF  EACH  A/C 

14. 

c 

* 

15. 

c 

16. 

INCLUOE  RESTART/LIST 

. 

1.1 

PARAMETER  (NUAIR  «  328) . 

2.1 

c 

< 

3.1 

c 

THE  LOGICAL  VARIABLE  PRINT,  WHEN  FALSE, 

WILL  SUPPRESS  ALL  WRITE 

4.1 

c 

STATEMENTS  IN  THE  MODEL. 

5.1 

c 

. 

1 

2 

2 

2 

3 

3 

J 

3 

3 

3 

3 

3 


6.1 

7.1 

8.1 

9.1 

10.1 

11.1 

17. 

18. 

19. 

20. 

21. 

22. 

23.  C 

24.  C 

25.  C 

26. 

27. 

28. 

29.  C 

30.  C 

31. 

32.  C 

33.  C 

34. 

35. 

36. 

37. 

38. 

39. 

40. 

41. 

42. 

43. 

44. 

45. 

46. 


LOGICAL  PRINT 

0IHENSI0N  TJFILE(NUAIR/8),  I JFILE (NUAIR/S),  ICASFI(83,NUAIR,1> 

COMMON  /TCDATA/  II 1 1 <83), . 0ENS(83>, 
t  lATIN(NUAIR),  lATSU(NUAIR),  IDA8N(NUAIR),  IDABS(NUAIR) 

EQUIVALENCE  (T JFILE, IJFILE) 

COMMON  /CAS/  ICASFl,  T JFILE,  NAC,  II,  PRINT 
COMNON/TRAX/JTRANS(NUAIR) 

COMHQN/SENS/JSENS(NUAIR) 

DIMENSION  XNORN(NUAIR) 

DIMENSION  YNORM(NUAIR) 

OIMENSION  XSENSCNUAIR) 

DIMENSION  VSENS(NUAIR) 

TRANSMISSION  POWER 

XNORN(I)  «  16  398  535 
YNORN(I)  *  16  398  535 

CALL  RANON(XNORM,NU AIR ,27.0/  1.5)  •  MOOE  S  POWER— NOMINAL 

IS  271  STANOARO 
DEVIATION  IS  1.5. 

CALL  RANON  (YNORM,  NUAIR,  29.2,  0.5)  8  TCAS  POWER-NOMINAL  IS 

29.2,  STANOARO 
DEVIATION  IS  0.5. 

DO  17  IQ  »  1,  NAC 

IF  <IJFILE(IQ,4>  .EQ.  0)  THEN  8  DETERMINE  ATCRBS 

CALL  RANN(RAN)  8  TRANSMISSION  POWER 

RAN  *  RAN  *  100.  8  USING  PROBABILITY 

IF  (RAN  .LE.  0.2)  THEN  8  DISTRIBUTION  FROM  ATC-9 

OIFF  »  11. 

ELSE  IF  (RAN  .LE.  0.4)  THEN 
OIFF  ■  10. 

ELSE  IF  (RAN  .LE.  1.27)  THEN 
OIFF  ■  9. 

ELSE  IF  (RAN  .LE.  1.92)  THEN 
OIFF  «  8. 

ELSE  IF  (RAN  .LE.  3.00)  THEN 
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TRANSP 

*** 

3 

*7. 

OIFF  *  7. 

3 

48. 

ELSE  IF  (RAM  .LE.  5.60)  THEM 

3 

49. 

OIFF  *  4. 

3 

50. 

ELSE  IF  (RAM  .LE.  9.50) 

THEN 

. 

3 

51. 

OIFF  ■  5. 

3 

52. 

ELSE  IF  (RAN  .LE.  15.60) 

THEN 

3 

53. 

DIFF  «  4. 

3 

54. 

ELSE  IF  (RAN  .LE.  25.40) 

THEN 

3 

55. 

OIFF  »  3. 

3 

56. 

ELSE  IF  (RAN  .LE.  36.90) 

THEN 

3 

57. 

OIFF  *  2. 

3 

58. 

ELSE  IF  (RAN  .LE.  49.00) 

THEN 

3 

59. 

OIFF  ■  1. 

3 

60. 

ELSE  IF  (RAN  .LE.  60.50) 

THEN 

3 

61. 

OIFF  •  0. 

3 

62. 

ELSE  IF  (RAN  .LE.  74.40) 

THEN 

3 

63. 

DIFF  «  -1. 

3 

64. 

ELSE  IF  (RAN  .LE.  81.80) 

THEN 

3 

65. 

OIFF  »  -2. 

3 

66. 

ELSE  IF  (RAN  .LE.  90.70) 

THEN 

3 

67. 

OIFF  ■  -3. 

3 

68. 

ELSE  IF  (RAN  .LE.  95.70) 

THEN 

3 

69. 

OIFF  «  -4. 

3 

70. 

ELSE  IF  (RAN  .LE.  98.30) 

THEN 

3 

71. 

OIFF  «  -5. 

3 

72. 

ELSE  IF  (RAN  .LE.  99.38) 

THEN 

3 

73. 

OIFF  «  -6. 

3 

74. 

ELSE  IF  (RAN  .LE.  99.78) 

THEN 

3 

75. 

OIFF  -  -7. 

3 

76. 

ELSE 

3 

77. 

OIFF  »  -8. 

3 

78. 

ENO  IF 

2 

79. 

JTRANS(IQ)  -  500  000  *  (0.7943  **  OIFF) 

2 

80. 

ELSE  IF  (1JFILEOQ/4)  .EQ.  1)  THEN 

• 

DETERMINE  HOOE  S 

2 

81. 

XCONVT  *  XN0RN(IQ)/10. 

a 

TRANSMISSION  FONER 

2 

82. 

XNORN(IQ)  *  (10.  *•  XCONVT)  * 

1  000. 

2 

83. 

JTRANS (IQ)  >  XNORM(IQ) 

2 

84. 

ELSE 

a 

OETERHINE  TCAS  II  N 

2 

85. 

TCONVT  *  YNORM(IQ)  /  10. 

a 

TRANSMISSION  FONER 

2 

86. 

YNORN(IQ)  *  (10.  •*  YCONVT)  * 

1  000. 

2 

87. 

JTRANS(IQ)  ■  YNORM(IQ) 

2 

88. 

ENO  IF 

1 

89. 

17  CONTINUE 

• 

1 

90. 

C 

1 

91. 

c 

SENSITIVITY  CALCULATIONS 

1 

92. 

t 

93. 

XSENSO )  a  16  398  540 

94. 

YSENS(1>  *  16  398  540 

95. 

CALL  RANON  (XSENS#  NUAIR#  77.60#  1.5) 

a 

HOOE  S  SENSITIVITY— 

96. 

c 

NOHINAL:  77.60 

97. 

c 

STANDARD  DEVIATION:  1.5 

98. 

CALL  RANON  (VSENS#  NUAIR#  77.50#  0.75) 

a 

TCAS  II  H  SENSITIVITY— 

99. 

c 

NONINAL:  77.50  , 

100. 

c 

STAN.  DEVIATION:  0.75 

101. 

00  12  II  *  1#  NAC 

1 

102. 

IF  (IJFILE(IZ#4)  .EQ.  0)  THEN 

a 

OETERHINE  ATCRBS 

2 

103. 

CALL  RANN  (RAN) 

a 

SENSITIVITY 

2 

104. 

RAN  *  RAN  *  100. 

2 

105. 

IF  (RAN  .LE.  0.2)  THEN 
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SENT  «  48. 

ELSE  IF  (RAN  .LE.  0.4)  THEN 
SENT  *  SI. 

ELSE  IF  (RAN  .LE.  Oi.6)  THEN 
SENT  «  52. 

ELSE  IF  (RAN  .LE.  1.0)  THEN 
SENT  *  S3. 

ELSE  IF  (RAN  .LE.  1.43)  THEN 
SENT  *  54. 

ELSE  IF  (RAN  .LE.  2.07)  THEN 
SENT  >  SS. 

ELSE  IF  (RAN  .LE.  2.26)  THEN 
SENT  *  56. 

ELSE  IF  (RAN  .LE.  3.79)  THEN 
SENT  *  57. 

ELSE  IF  (RAN  .LE.  4.00)  THEN 
SENT  *  58. 

ELSE  IF  (RAN  .LE.  4.43)  THEN 
SENT  *  59. 

ELSE  IF  (RAN  .LE.  5.29)  THEN 
SENT  ■  60. 

ELSE  IF  (RAN  .LE.  6.80)  THEN 
SENT  »  61. 

ELSE  IF  (RAN  .LE.  8.52)  THEN 
SENT  *  62. 

ELSE  IF  (RAN  ,LE.  10.89)  THEN 
SENT  »  63. 

ELSE  IF  (RAN  .LE.  14.12)  THEN 
SENT  *  64. 

ELSE  IF  (RAN  .LE.  17.14)  THEN 
SENT  ■  65. 

ELSE  IF  (RAN  .LE.  19.94)  THEN 
SENT  -  66. 

ELSE  IF  (RAN  .LE.  25.33)  THEN 
SENT  »  67. 

ELSE  IF  (RAN  .LE.  31.80)  THEN 
SENT  *  68. 

ELSE  IF  (RAN  .LE.  39.14)  THEN 
SENT  ■  69. 

ELSE  IF  (RAN  .LE.  44.10)  THEN 
SENT  *  70. 

ELSE  IF  (RAN  .LE.  51.22)  THEN 
SENT  *  71. 

ELSE  IF  (RAN  .LE.  57.26)  THEN 
SENT  »  72. 

ELSE  IF  (RAN  .LE.  65.03)  THEN 
SENT  *  73. 

ELSE  IF  (RAN  .LE.  69.78)  THEN 
SENT  *  74. 

ELSE  IF  (RAN  .LE.  75.17)  THEN 
SENT  *  75. 

ELSE  IF  (RAN  .LE.  81.00)  THEN 
SENT  «  76. 

ELSE  IF  (RAN  .LE.  86.61)  THEN 
SENT  »  77. 

ELSE  IF  (RAN  .LE.  90.06)  THEN 
SENT  =  78. 

ELSE  IF  (RAN  .LE.  94.59)  THEN 
SENT  *  79. 
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3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

1 


TRANSF 

165. 

166. 

167. 

168. 

169. 

170. 

171. 

172. 

173. 

174. 

175. 

176. 

177. 

178. 

179. 

180. 

181. 

182. 

183. 

184. 

185. 

186. 

187. 

188. 

189. 

190. 

191. 

192. 

193. 


ELSE  IF  (RAN  .IE.  95.38)  THEN 
SENT  *  80. 

ELSE  IF  {RAN  .LE.  98.03)  THEN 
SENT  *  81. 

ELSE  IF  <RAN  .LE.  98.46)  THEN 
SENT  «  82. 

ELSE  IF  {RAN  .LE.  98.89)  THEN 
SENT  *  83. 

ELSE  IF  {RAN  .LE.  99.32)  THEN 
SENT  «  84. 

ELSE 

SENT  ■  87. 

ENO  IF 

SENT  «  SENT  ♦  3. 

JSENS(XZ)  *  “SENT 

ELSE  IF  (IJFILEUZ/4)  .EQ.  1)  THEN 
ZSENS  «  -XSENS(U) 

ZE  (ZSENS  .LT.  -B0.)ZSENS  «  “80. 
IF  (ZSENS  .GT.  -74.3ZSENS  *  “74. 
JSENS(IZ)  ■  ZSENS 

ELSE 

ZSENS  •  -YSENSdZ) 

IF  (ZSENS  .LT.  -79.)  ZSENS  -  -79. 
IF  (ZSENS  .CT.  -75.)  ZSENS  *  -75. 
JSENS(IZ)  -  ZSENS 
ENO.  IF 
12  CONTINUE 
RETURN 
ENO 


•  OETERNINE  MOOE  S 
8  SENSITIVITY 


a  OETERNINE  TCAS 
a  SENSITIVITY 


ENO  FTN  547  16 ANA  1508  OBANK  31985  CONNON 
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»»»  tsQutr  *** 

rftn# *  A.rsuuiT^A.r sviu t r 

FTN  11R11R1A  05/30/85-13:16(41#) 

1.  SUOKOUT IHt  ISQUITI  IPRGTS  > 

2.  C 

3.  C  THE  PURPOSE  OF  THIS  SUBROUTINE  IS  TO  COUNT  THE  NUMBER  OF  TCAS  II-N 

4.  C  OETECTEO  BY  SOUITTERS  AND  SET  THE  SOUITTER  START  TIME. 

5.  C 

6.  C  *.*»»*»»»»•»**»»•*»«*»»•»***  INPUTS  /  OUTPUTS  *»*»»*****»»»*•*****■ 

7.  C 


a. 

C 

COMMON  BLOCKS 

/ 

VARIABLES 

9. 

C 

INPUTS 

OUTPUTS 

DESCRIPTION 

10. 

C 

11. 

c 

ARG  LIST 

/ 

IPRCTS 

INDICATES  WHETHER  THE  REC  POU 

>  SENSITI 

12. 

C 

CAS 

/ 

It 

TCAS  II  M  IDENTITY 

13. 

c 

SINT 

/ 

K 

VICTIM  AIRCRAFT  IOENTITV 

14. 

c 

SMOOTH 

/ 

NON 

NUMBER  OF  TCAS  It  M.  OETECTEO 

15. 

c 

TCAA 

/ 

NUMTCA 

NUMBER  OF  TCAS  II  M  AIRCRAFT 

16. 

c 

TCOATA 

/ 

mi 

TCAS  II  M  POINTER  FILE 

17. 

c 

TEMP 

/ 

(TIME 

ELAPSED  TINE  IN  SIMULATION 

IB. 

c 

TPREPL 

/ 

PREP 

PROBABILITY  OF  REPLY  FOR  EACH 

AIRCRAFT 

19. 

c 

TRAN 

/ 

ITLAST 

ITLAST 

TCAS  II  H  SQUITTER  START  TIME 

20. 

c 

TRAN 

/ 

IACTOT 

CONVERTS  A/C  10  TO  TCAS  ID  (II) 

21. 

c 

22. 

INCLUOE  RESTART 

#LIST 

1.1  PARAMETER  (NUAIR  «  743) 

2.1  C 

3.1  C  THE  LOGICAL  VARIABLE  PRINT#  WHEN  FALSE#  MILL  SUPPRESS  ALL  URITE 

4.1  C  STATEMENTS  IN  THE  MOOEL. 

5.1  C 

6.1  LOGICAL  PDISMO#PINTLt#PTCSMT#PATMOD#POISIN#PFILES#PFRUIT# PST ATS 

7.1  COMMON  /PRTBL/  POISMO# PINTLI# PTCSMT#PATMOO#POIS IN#PFILES#PFRUI T# 

8.1  2  PSTATS 

9.1  * 

10.1  DIMENSION  T JF ILE( NUAIR# 3) <  IJFILE(NUAIR#8>#  ICASFI (83#NUAIR#1 ) 

11.1  COMMON  7TC0ATA/  1111(33)#  0ENS(B3># 

12.1  T  IATIN(NUAIR)#  lATSU(NUAIR)#  lOABN(NUAIR)#  IOABS(NUAIR) 

13.1  EQUIVALENCE  (T JF ILE# I JFILE) 

14.1  COMMON  /CAS/  ICASFI#  TJFILE#  NAC#  II#  PRINT 

23.  INCLUDE  TCAA#L 1ST 

1.1  COMMON  /TCAA/  NUMTCA 

24.  INCLUOE  TEMP»LIST 

1.1  COMMON  /TEMP/  ITIME 

25.  INCLUOE  TRAN#LIST 

1.1  COMMON  /TRAN/  ITLAST (83#33) # I ACTOT(NUAIR) 

26.  INCLUOE  SMQOTH#LIST  , 

1.1  COMMON  /SMOOTH/  N0MC33)#  AVMSPM(83)#TIS(83) 

27.  INCLUOE  S INT#LIST 

1.1  COMMON  /SINT/  LPLUS#  K>  ITOB(IOO) 

28.  INCLUOE  TPR EPL»LIST 

1.1  COMMON  /TPREPL/  PREP(NUAIR) 

29.  DEFINE  FLO(.’.»J#K>  «  81 TS <K#  1*1  # J) 

30.  C 

31.  C  COMPUTE  NUMBER  OF  TCAS  II  N  OETECTEO  ST  SQUITTER 

32.  C 

33.  *» 

34.  *  K  IS  THE  10  OF  THE  N'TH  TCAS  A/C.  IT  IS  NECESSARY  TO  FINO  THE  VALUE 

35.  »  OF  N#  WHICH  IS  USED  AS  AN  INDEX  OF  THE  TCST  AND  ITLAST  ARRAYS. 

56.  * 

37. 


I0TC4S  *  IACTOT(K) 
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IF <  I0TCAS  .GT.  NUHTCA)  HRITEI6/ 1 6> IITC/I1 1 1 UTC)/ 

2  IACT0TU111UTC)>/ITC«1/NUNTCA) 

14  FORMAT ! *  TSQUITsII  1111  UCTOT'/SUA/'-'/IJ/'-'/1 3)  ) 

» 

ITLSO  *  FLOO/IO/ITLASTIII/IOTCAS)  ) 

IF (  ITLSO  .EQ.  0)  ITLSO  *  MINT!  RANOOMO  *  9.)  ♦  1 

» 

IOELT  ■  ITIMt  -  ITLSO 

INTRK  «  FL0C0/1/ITLAST (Il/IOTCAS)  >  3  IS  THE  K*  A/C  IN  SQUITTER  FILE 

* 

*  AT  TINE  *  1  SEC/  LOAO  ALL  TCAS  A/C  THAT  CAN  BE  DETECTED  BT  THEIR  SQUITTER 

*  AND  HAVE  A  SUFFICIENTLY  HIGH  FROM  OF  DETECTING  THE  SQUITTER 
» 

IF !  ITIHE  .EQ.  DTHEN  3  AT  TINE*1/  LOAD  SQUITTER  FILE 


IF  I  ITIHE  .EQ.  DTHEN  B  AT 

£*.»l  O.uy/D.u} 

IF<  IFRGTS  .£0.  1  .AND.  PREFIX)  .GT.  RAN) THEN 
IFIINTRK  .EQ.  0)  HDU(II)  •  NOUUI)  ♦  1 
FLO!  0/1/ITLASTUl/IQ  TCAS)  >  ■  1 
END  IF 


»  SQUITTER  RECE1VE0 
3  NEU  A/C  IN  SQIT  FILE 
a  AOO  K'TH  A/C  TO  SQ  F 


*  AT  TINES  >  I  SEC/  CHECK  TO  SEE  IF  A  TCAS  A/C  SHOULO  BE  AOOEO  OR  DELETED  FROM 

*  THE  SQUITTER  FILE 

« 

ELSE  IF!  IOELT  .GT.  20  .AND.  INTRK  .EQ.  DTHEN  3  >  20  SEC  SINCE  LAST  RX  S 
NOUUI)  *  NOUUI )  -  1  3  1  LESS  A/C  IN  SQUITTER  FILE 

FLDCO/1/ ITLASTIII/tOTCAS)  )  ■  0  8  DELETE  K'TH  A/C  FROM  SQUIT  FILE 

ELSE  IF!  HOOUOELT/10)  .EQ.  OITHEN  3  K’TH  TCAS  TX  TINE 
CALL  RANN!RAN) 

IF!  IFRGTS  .EQ.  1  .AND.  PREFIX)  .GT.  RAN)THEN  3  SQUITTER  RECEIVEO 
IFIINTRK  .EQ.  0)  NOUUI)  -  NOUUI)  ♦  1  3  NEU  A/C  IN  SQIT  FILE 

FL0I0/1/ITLASTUI/IDTCAS)  )  ■  1  t  ADD  K'TH  A/C  TO  SQ  F 

FLO! 1/10/ ITLAST! I  I/IDT CAS)  )  «  ITIHE  8  LASTEST  SQ  RX  TINE 

END  IF 
END  IF 

* 

C  HR ITE! 6/1 6) IPRGTS/II/I DTCAS/ITLSQ/IDELT/LSQUIT/MOUCII) 

RETURN 

END 
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t  stmt  •** 

UFtN*S  A.TSTART/A.TSTART 

PTN  11R11R1A  05/30/85-15:16(23*1 

1.  SUBROUTINE  TSTART 

2.  C 

3.  C  THIS  SUBROUTINE  COUNTS  THE  NUMBER  OF  TCAS  II  N  AIRCRAFT*  SETS  UF  A 

A.  C  POINTER  FILE  TO  THEIR  LOCATION  IN  THE  GENERAL  AIRCRAFT  CHARACTERISTICS 

5.  C  FILE*  ANO  SETS  THE  SQUITTER  PHASE  FOR  EACH  TCAS  II  M  AIRCRAFT. 

6.  C 

7.  C  INPUTS  /  OUTPUTS  »*#**»*••**•*•****•** 

8.  C 

9.  C  COMMON  BLOCKS  /  VARIABLES 

10.  C  INPUTS  OUTPUTS  DESCRIPTION 

11.  C 

12.  C  CAS  /  IJFILE  TYPE  OF  EACH  AIRCRAFT 

IS.  C  NAC  NUMBER  OF  AIRCRAFT 

14.  C  TCAA  /  NUMTCA  NUMBER  OF  TCAS  I!  M  AIRCRAFT 

15.  C  TCOATA  /  1111  TCAS  II  M  POINTER  FILE 

16.  C  TRAN  /  TCST  SQUITTER  PHASE  START  TIME 

17.  C 

18.  C 

19.  INCLUDE  RESTART*LIST 

1.1  PARAMETER  CNUAIR  ■  743) 

2.1  C 

3.1  C  THE  LOGICAL  VARIABLE  PRINT*  NHEN  FALSE*  HILL  SUPPRESS  ALL  WRITE 

4.1  C  STATEMENTS  IN  THE  MODEL. 

5.1  C 

6.1  LOGICAL  POISMO*PINTLI*PTCSMT*PATMQO*POISIM*PFILES*PFRUIT*PSTATS 

7.1  COMMON  /PRT&L/  POISMO,PINTLI*PTCSMT»PATMOO*PDISIN,PFILES»PFRUIT* 

8. 1  2  PSTATS 

9.1  * 

10.1  OIMENSION  TJFILE(NUAIR*8)*  IJFILE (NUAIR*S)*  ICASFI<83*NUAIR*1) 

11.1  COMMON  /TCOATA/  I11KB3)*  UENSI83)* 

12.1  T  lATIN(NUAIR)*  lATSU(NUAIR)*  IDABN(NUAIR)*  lOABS(NUAtR) 

13.1  EQUIVALENCE  ( TJF ILE*I JFILE) 

14.1  COMMON  /CAS/  ICASFI*  T JFILE*  NAC*  II*  PRINT 

20.  INCLUDE  TCAA*L 1ST 

1.1  COMMON  /TCAA/  NUMTCA 

21.  INCLUOE  TRAN* LIST 

1.1  COMMON  /TRAN/  ITLAST(83*83)*IACT0T(NUAIR> 

22.  DEFINE  FLO(I*J*K)  «  BITS(K*I»1*J) 

23.  00  300  1*1*  NAC  8  COMPUTE  NUMBER  OF  TCAS  IIN 

1  24.  IF  (IJFlLE(l*4).NE.3>  GO  TO  300 

1  25.  NUMTCA  =  NUMTCA  ♦  1  B  COUNT  TCAS  IIN  A/C 

1  26.  I11KNUMTCA)  *  I  8  SET  UP  POINTER  TO  LOCATION  OF 

1  27.  lACTOT(I)  *  NUMTCA  .  B  TCAS  IIN  IN  A/C  CHAR.  FILE 

1  28.  C 

1  29.  300  CONTINUE 

30.  RETURN 

31.  END 

END  FTN  57  IBANK  2S  DBANK  78395  COMMON 
BHOG*P  »*»  WSPOWE  *** 
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1 


**#  WSPOWE  *•* 


8FTN/S  B.WSPOWE/VSPOWE 

FTN  11*1  02/27/85-16:56(23/) 


1. 

SUBROUTINE  WSPOWE 

3. 

C 

THE  PURPOSE  OP  THIS  SUBROUTINE  IS 

TO  LOAD 

INTO  ARRATS  THE  POWER 

4. 

C 

ASSOCIATED  P0R  EACH  LEVEL  OP 

WHISPER  : 

SHOUT  FOR  THE  TOP  ANO 

5. 

c 

BOTTOM  ANTENNA. 

6. 

c 

7. 

c 

/  OUTPUTS 

8. 

c 

• 

9. 

c 

COMMON  BLOCKS  /  VARIABLES 

10. 

c 

INPUT  OUTPUT 

DESCRIPTION 

11. 

c 

12. 

c 

W'iHOUT  /  IP0HB 

w-s 

LEVELS  FOR  TOP  BACK  ANTENNA 

13. 

c 

XP0UB0 

W-S 

LEVELS  FOR  BOTTOM  ANTENNA 

14. 

c 

IP0UF 

w-s 

LEVELS  FOR  TOP  FRONT  ANTENNA 

15. 

c 

IP0MS 

w-s 

LEVELS  FOR  SIDE  ANTENNAS 

16. 

c 

17. 

c 

EACH  WHISPER  SHOUT  STEP  CHECKED  POR  TOTAL 

RADIATED  POWER 

18. 

c 

OP  TCAS  IXM-ATCR8S  EMMISSIONS. 

19. 

c 

20. 

C0MM0N/WSH0UT/IPRPC24)/ IP* SC  40)/ IPR8(15)/ 

IPRB0T(4)/IP0NF(24)/ 

21.. 

?IPOWS(41)/XPOUB<15)/1POUBO<4) 

22. 

c 

23. 

c 

LOAD  POWER  FOR  EACH  MHXSPER  SHOUT 

LEVEL. 

> 

24. 

c 

25. 

IOROP  «  0 

26. 

IPEAK  -  49 

27. 

00  3002  K  a  1,  24 

8 

TCAS  IIM  TOP-FRONT  ANTENNA 

1 

28. 

IPOWP(K)  «  IPEAK  -  IDR0P*1 

a 

(24  LEVELS) 

1 

29. 

IOROP  »  IOROP  ♦  1 

a 

POWER  LEVELS  RANGE  FROM 

1 

30. 

PACT  «  (IPOWP(K)  -  30.3/10. 

a 

49  OBN  TO  26  DBM 

1 

31. 

POWPR  »  POWER  ♦  (10.»»PACT) 

1 

32. 

o 

o 

n 

CONTINUE 

33. 

IOROP  »  0 

34. 

IPEAK  »  45 

35. 

00  3003  K  *  1/  40/  2 

a 

TCAS  XIN  LEFT  t  RIGHT  SIOE 

1 

36. 

IPOWS(K)  a  IPEAK  -  I0R0P*1 

a 

20  LEVELS  PER  SXOE 

1 

37. 

IP0US(K91)  a  IPOWS(K) 

a 

POWER  LEVELS  RANGE  FROM 

1 

38. 

IOROP  •  IOROP  ♦  1 

a 

45  TO  26  OBN 

1 

39. 

FACT  ■  (IPOHS(K)  -  30.3/10. 

1 

40. 

POWSO  a  POWSO  ♦  (10.«*PACT) 

1 

41. 

o 

o 

•o 

CONTINUE 

42. 

IOROP  «  0 

43. 

IPEAK  >  40 

44. 

00  3004  K  *  1/  15 

a 

TCAS  IIM  BACK  <15  LEVELS) 

1 

45. 

IPOWB(K)  «  IPEAK  -  lOROPol, 

a 

POWER  LEVELS  RANGE  FROM 

1 

46. 

IOROP  «  IOROP  ♦  1 

a 

40  TO  26  OBN 

1 

47. 

FACT  a  (IPOWB(K)  -  30.1/10. 

1 

48. 

P0W8K  »  PQUBK  4  (10.**PACT) 

1 

49. 

3004 

CONTINUE 

50. 

IOROP  >  0 

51. 

IPEAK  >  jb 

52. 

00  3005  K  a  1/  4 

a 

TCAS  IIM  BOTTOM  (4  LEVELS) 

1 

53. 

IPOWBO(K)  a  IPEAK  -  IDR0P«2. 

a 

POWER  LEVELS  RANGE  FROM 

1 

54. 

IOROP  «  IOROP  ♦  1 

a 

36  TO  30  OBM 

1 

55. 

PACT  «  (IPCWBO(K)  -  30.3/10. 

1 

56. 

POWBOT  «  PQWBOT  ♦  (10.*«FACT) 

1 

57. 

3005 

CONTINUE 
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♦»*  WSPDUE  *»♦ 

1  SB.  c 

1  59.  C  CALCULATE  TOTAL  ATCRBS  INTERROGATION  CONTRIBUTION  FOR  TOR  I  BOTTOM 

1  60.  C  ANTENNAS. 

1  61.  C  ' 

62.  FTOT  »  FOUFR  ♦  POWSO  ♦  POHBK  ♦  POWBOT 

63.  RETURN 

64.  ENO 
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APPENDIX  C 
SAMPLE  EXECUTION 


The  control  cards  that  execute  the  TCAS  SEM  follow.  Each  record  begins 
in  column  1  and  is  spaced  as  shown. 


@RUN , /RTP  ( JRID ) , ( CHARGE# ) , ( USER) , 30 , 1 000 
@ASG, AX  FAA*TCAS/U. 

@ASG,A  FAA* INRATE/U . 

@USE  8., FAA* INRATE/U. 

@ASG,A  FAA*OUTRTS/U. 

@USE  10. ,FAA*OUTRTS/U. 

@ASG,A  FAA* BAS INI  /U. 

@XQT  FAA* TCAS/ U. RUN. 

@ADD  FAA*BASIN1/U. 

@FIN 

@@ 


The  files  named  in  the  above  records  are  defined  in  TABLE  C-1 .  The  output 
file  to  be  used  in  the  DABS/ ATCRBS/ AIMS  PPM  contains  the  information  shown  in 
TABLE  C-2 . 
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TABLE  C-1 

FILES  USED  IN  THE  TCAS  SEM 


Fi  le  Name 

Description 

IHRATE 

Input  file  of  Interrogation  and  Suppression 

Rates  at  each  aircraft  due  to  ground  ATC  from 
DABS/ATCRBS/AIMS  PPM 

OUTRTS 

TCAS  Signal  Rates  to  be  used  in  the 
DABS/ATCRBS/AIMS  PPM 

BAS INI 

Deployment  Information:  latitude, 
longitude,  altitude,  type,  and 
velocity  of  each  aircraft 

TABLE  C-2 

KEY  TO  COLUMNS  OF  TCAS  SEM  OUTPUT 


Column 

Description 

Aircraft  Identity 

Index  ID  of  aircraft  in  the  deployment  file 

Mode  S  Misaddresses 

Number  of  Mode  S  misaddressed  interrogations  received 
above  sensitivity 

Mode  S  Suppressions 

Number  of  ATCRBS  suppressions  received  above 
sensitivity  at  Mode  S  transponder-equipped  aircraft 

Modes  S  Interrogations 

Number  of  ATCRBS  interrogations  received  above 
sensitivity  at  Mode  S  transponder-equipped  aircraft 

ATCRBS  Suppressions 

Number  of  ATCRBS  interrogations  received  above 
sensitivity  at  ATCRBS  transponder-equipped  aircraft 

ATCRBS  Interrogations 

Number  of  ATCRBS  interrogations  received  above 
sensitivity  at  ATCRBS  transponder-equipped  aircraft 

TCAS  II  M  Deadtime 

Mutual-suppression  time  (in  ys)  of  each  TCAS  II  M 
receiver 

TCAS  I  Interrogations 

Number  of  TCAS  I  interrogations  received  above 
sensitivity  at  ATCRBS  and  Mode  S-equipped  aircraft 

C-2 
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